結構難しそう。

スマートな方法はなさそうだ。

リンク先に丁寧な説明があります。

また、独自の関数も有ります。

便利そうです。

こういう方法もあります。

これは、ここから持ってきました。

Sub CopyPaste
Dim oFrame as object
Dim dispatcher as object
‘
oFrame = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)
‘
dispatcher.executeDispatch(oFrame, “.uno:Copy”, “”, 0, Array())
‘
Dim oArgs2(0) as new com.sun.star.beans.PropertyValue
oArgs2(0).Name = “ToPoint”
oArgs2(0).Value = “$B$5”
dispatcher.executeDispatch(oFrame, “.uno:GoToCell”, “”, 0, oArgs2())
‘
Dim oArgs3(5) as new com.sun.star.beans.PropertyValue
oArgs3(0).Name = “Flags”
oArgs3(0).Value = “SDFNT” ‘ ← 下記” Flag Value “参照
oArgs3(1).Name = “FormulaCommand”
oArgs3(1).Value = 0
oArgs3(2).Name = “SkipEmptyCells”
oArgs3(2).Value = false
oArgs3(3).Name = “Transpose”
oArgs3(3).Value = false
oArgs3(4).Name = “AsLink”
oArgs3(4).Value = false
oArgs3(5).Name = “MoveMode”
oArgs3(5).Value = 4
dispatcher.executeDispatch(oFrame, “.uno:InsertContents”, “”, 0, oArgs3())
‘
msgbox “Success”
End Sub
‘
‘ [ Flag Value ]
‘ S : String ( テキスト )
‘ V : Value ( 値 )
‘ D : Date ( 日付 )
‘ F : Formula ( 式 )
‘ N : Note ( コメント )
‘ T : Format ( 書式 )
‘ 空白 : Object ( オブジェクト )
‘ A : 全て