Calc でボタンをクリックしてマクロを動かす。

　マクロ自体は大したことはやっていないが Excel でやっているようにボタンを押したら動くようにした。

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1

Sub TEST
Dim Doc As Object
Dim Sheet As Object
Dim NewColumn As Object

rem Doc = StarDesktop.CurrentComponent
Doc = ThisComponent
Sheet = Doc.Sheets("Sheet7")

msgbox "TEST"
End Sub


　まずは「表示」-「ツールバー」-「フォームコントロール」を選択する。

　するとフォームコントロールのウインドウが表示される。　

　デザインモードをオンにしてプッシュボタンを配置する。

　配置したプッシュボタンを右クリックしてメニューからコントロールを選択する。

　マクロセレクターなウインドウが表示されるので実行したいマクロを選択する。

　選択したマクロを動かすタイミングは実行時。
　マウスボタンを押した時ではダメなのだろうか。

　実行結果は予想通りで問題なし。

　今日は見えないところではなくて見栄えをいじったのでちょっと面白かった。