OnAction
オートシェイプ(図形)にマクロを登録するには「OnAction」を使用します。
大量の図形にマクロを登録するときや、自動的にマクロを登録したいときに便利です。
登録されているマクロを削除するときはマクロ名を抜き「””」にすることで、ただの図形にすることができます。
マクロを登録
図形.OnAction = “マクロ名”
マクロを削除
図形.OnAction = “”
図形をクリックして「ボタン」と表示させるサンプルコード
'■登録したいマクロを用意
Sub BUTTON()
MsgBox "ボタン" '「ボタン」と表示する
End Sub
'■図形にマクロを登録
Sub Sample1()
ActiveSheet.Shapes("正方形/長方形 1").OnAction = "BUTTON"
End Sub
'■図形からマクロを削除
Sub Sample2()
ActiveSheet.Shapes("正方形/長方形 1").OnAction = ""
End Sub
注意点
- 図形単体にマクロを登録する場合は、図形を右クリックし「マクロの登録」から登録することもできます。
- 上記は先に図形を作成していることを前提としています。あらかじめ図形の名称を確認しておいてください。
※図形をクリックすると、シート左上の「名前ボックス」に名称が表示されます。
コメント