メニュー形式(エクセルのアドインタブにメニューを追加する)

メニュー形式(エクセルのアドインタブにメニューを追加する)

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

スポンサーリンク

スマホのみ下に表示