関数とサンプル
【覚えておきたい関数】
- 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マクロ入門講座 目次
