【LibreOfficeマクロ】コピー・貼付け


関数とサンプル

【覚えておきたい関数】

  • Rangeアドレス取得:getRangeAddress()
  • セルアドレス取得:getCellAddress()
  • 貼り付け:copyRange(貼り付け先セルアドレス,コピー元Rangeアドレス)
ソースコード
Sub Main

'アクティブシート取得
Dim oSheet As Object
oSheet = ThisComponent.CurrentController.ActiveSheet

dim srcRangeAdr As Object
dim destCellAdr As Object

'コピー元 A1:D4
srcRangeAdr = oSheet.getCellByPosition(0,0,3,3).getRangeAddress()

'貼り付け先 A5
destCellAdr = oSheet.getCellByPosition(0,4).getCellAddress()

'コピー貼り付け
oSheet.copyRange(destCellAdr,srcRangeAdr)

End Sub

実行結果

目次はこちら
>> LibreOfficeマクロ入門講座 目次

スポンサーリンク

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

Time limit is exhausted. Please reload CAPTCHA.