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

2019/08/23

Option Explicit
Sub Auto_Open()

With CommandBars("worksheet menu bar").Controls.Add(Type:=msoControlPopup)
.Caption = "メニュー"

With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ１"
.OnAction = "マクロ１"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ２"
.OnAction = "マクロ２"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "マクロ３"
.OnAction = "マクロ３"
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

■365日記念日グッズを豊富なカラーと選べるサイズで、素敵な自分だけのオリジナルがきっと見つかる！シリーズ anniversary - by SUZURI
■プレゼントに何贈ろうか困ってるなら！年齢別学年別、変わり種の面白い贈り物 - おすすめあつめ。