メニュー形式(エクセルのアドインタブにメニューを追加する)
メニュー形式(エクセルのアドインタブにメニューを追加する)
Option Explicit
Sub Auto_Open()
With CommandBars("worksheet menu bar").Controls.Add(Type:=msoControlPopup)
.Caption = "メニュー"
With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ1"
.OnAction = "マクロ1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ2"
.OnAction = "マクロ2"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ3"
.OnAction = "マクロ3"
End With
End With
End Sub
Sub auto_close()
On Error Resume Next
CommandBars("worksheet menu bar").Controls("メニュー").Delete
CommandBars("worksheet menu bar").Controls("メニュー").Delete
CommandBars("worksheet menu bar").Controls("メニュー").Delete
End Sub