LibreOfficeCalcでセルをコピー状態にする

ThisComponent.CurrentController.Select(ThisComponent.Sheets.getByName("SheetName").getCellRangeByName("A1"))
Dim dispatcher as Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(ThisComponent.getCurrentController().getFrame(),  ".uno:Copy", "", 0, Array())