行のコピーで列幅、行高が反映されない †
ページ | OpenOffice.org FAQの登録ページ |
---|---|
投稿者 | 匿名 |
分類 | |
優先順位 | |
状態 | |
カテゴリー | |
投稿日 | 2010-04-16 19:05:09 (金) |
OS | WindowsXP |
依存するページ | |
バージョン |
メッセージ †
回答ページでは行末に「~」を付加する必要はありません |
下記のコードで
Sheet2の1行目から13行目までを
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 (金))
コメントありがとうございました。