「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1122
現在:5


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

ページOpenOffice.org FAQの登録ページ
投稿者匿名
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2010-04-16 19:05:09 (金)
OSWindowsXP
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

 下記のコードで
 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 (金))

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

お名前:
題名: