FC2ブログ

おジさん学習帳

LibreOffice などOffice ソフトなどについてのブログです
おジさん学習帳 TOP  >  LibreOffice Calc >  LibreOffice Calc の マクロ その3-2

LibreOffice Calc の マクロ その3-2

前回作成して 機能したマクロですが

どうなっているのか?

判らないでも 確認してみる

確認の仕方


1.[ツール]→[マクロ]→[マクロの管理]→[LibreOffice Basic] クリック
  
2.[LibreOffice Basic マクロ]画面
  「マイマクロ」-「Standard」-「Module1」-「TEST」 [編集]クリック
  
3.[マイマクロ&ダイアログ.Standard - LibreOffice Bsic ]画面が表示される
 
内容をコピーしてみました 


REM ***** BASIC *****


sub TEST
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "LibreOffice"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())


end sub


Excel 2010 で Sheet1 A1 に 「LibreOffice」と入力した場合の マクロを記録したもの


Sub Macro2()
'
' Macro2 Macro
'

'
ActiveCell.FormulaR1C1 = "LibreOffice"
Range("A2").Select
End Sub

Excel 2010で 機能するマクロ
この場合 アクティブセルに「LibreOffice 」と入力し その後 A2 セルへ アクティブセルが移動する

そこで LibreOffice でも 他のシートから Sheet1 の A1 セルへ 「LibreOffice」と入力した場合の記録は

REM ***** BASIC *****

sub TEST02
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 1

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = "LibreOffice"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())


end sub

スポンサーサイト



[ 2011年11月04日 08:56 ] カテゴリ:LibreOffice Calc | TB(0) | CM(0)
コメントの投稿












管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL

カウンター
検索フォーム
ブロとも申請フォーム
QRコード
QR