VBA/コンテキストメニューを作成する - UCSS_TIPS_AND_SAMPLES

コンテキストメニューを作成する

まずはワークブックオープン時に呼び出すようにしておきます

Private Sub Workbook_Open()
   Call menu_create
End Sub

メニューを作るロジックを作成

Public Sub menu_create()
   'コンテキストメニューの追加
   Application.CommandBars("Cell").Controls.Item("切り取り(&T)").BeginGroup = True
   '区切り線を追加しています。
   Dim cbc_cell As CommandBarControl
   Set cbc_cell = CommandBars("Cell").Controls.add(Type:=msoControlButton, before:=1, Temporary:=True)
   With cbc_cell
       .Caption = "選択セル_名称自動取得"
       '.FaceId = 50
       .OnAction = "選択セル_名称自動取得XML"
   End With
   Set cbc_cell = CommandBars("Cell").Controls.add(Type:=msoControlButton, before:=1, Temporary:=True)
   With cbc_cell
       .Caption = "選択セル_名称リスト自動取得"
       '.FaceId = 50
       .OnAction = "選択セル_名称リスト自動取得"
   End With
End Sub

ワークブッククローズ時はメニューを戻すようにしておきます

Private Sub Auto_Close()
   Application.ScreenUpdating = False
   'デフォルトのEXCELメニューバーに戻す
   On Error Resume Next
   CommandBars("Cell").Controls("切り取り(&T)").BeginGroup = False
   On Error GoTo 0
End Sub