faq/5/329

行のコピーで列幅、行高が反映されない †

ページ	OpenOffice.org FAQの登録ページ
投稿者	匿名
分類	Q&A要望不具合メンテナンス
優先順位	緊急重要普通低
状態	質問回答中完了完了回答待ち議論中Issues重複却下保留再現不可
カテゴリー	インストール全体Writer ワープロCalc 表計算Impress プレゼンテーションDraw 図形描画Base データベースHTMLエディタMath 数式エディタLinux版StarSuiteその他
投稿日	2010-04-16 19:05:09 (金)
OS	WindowsXP
依存するページ
バージョン	3.4.53.4.43.4.33.4.23.4.13.4.03.3.53.3.43.3.33.3.23.3.13.3.03.2.13.2.03.1.13.1.03.0.13.0.02.4.32.4.22.4.12.42.3.12.32.2.12.22.12.0.42.0.32.0.22.0.12.01.1.51.1.41.1.31.1.21.11.0.31.0.21.0.11.0Dev3.3Dev3.2Dev3.1Dev3.0不明

メッセージ †

　下記のコードで
　Sheet2の１行目から１３行目までを
　Sheet1にコピーしています。
　コピーは出来ているのですが、
　Sheet2の列幅、行高がSheet1に反映されません。
　何か解決策がございましたら、ご教授をお願いいたします。

 oDoc = ThisComponent
 oSheet = oDoc.getSheets().getByIndex(1)
 oColumns = oSheet.getColumns()
 oStartCol = oColumns.getByIndex(0) ' A
 oEndCol = oColumns.getByIndex(29) ' AD
 oRows = oSheet.getRows()
 oStartRow = oRows.getByIndex(0)
 oEndRow = oRows.getByIndex(12)
 yy = k * 13
 With aCellAddress
   .Sheet = 0
   .Column = 0
   .Row = yy
 End With
 
 ' source range
 With aCellRangeAddress
    .Sheet = 1
    .StartColumn = oStartCol.getRangeAddress().StartColumn
    .EndColumn = oEndCol.getRangeAddress().EndColumn
    .StartRow = oStartRow.getRangeAddress().StartRow
    .EndRow = oEndRow.getRangeAddress().EndRow
 End With
 oSheet.copyRange( aCellAddress, aCellRangeAddress )

無題 †

ike@九州 (2010-04-17 08:28:11 (土))

元の各幅、高さを For〜Next で変数に代入し
貼り付け先へ For〜Next で反映するしか方法が無いようです。

はにゃ？ さんがサンプルを作成されてます。応用してください
faq/3/418

頻繁に使用される場合は、汎用的な Function として利用できるように作成されるべきです。

とりあえず下記コードで反映できましたので完了 †

匿名 (2010-04-21 12:34:22 (水))

とりあえず、下記コードで元シートの行高、列幅を
貼りつけ先に反映できましたので、完了いたします。
ご協力ありがとうございます。

For i = 0 To 29
  oCell = efusheet.Columns(i)
  ooCell = prtsheet.Columns(i)
  ooCell.Width  = oCell.Width 
Next i

完了にします †

M.Kamataki (2010-04-23 10:25:54 (金))

コメントありがとうございました。