目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

196 / 277

←次へ　｜　前へ→

【91】Re:Excel 97 以降で、メニューを簡単に追加する例

Jaka - 05/3/10(木) 13:53 -


	引用なし

	パスワード

メニューバーで検索してみたら、意外とメニューバーのマクロってないというか、残ってなかったので、谷さんと違う書き方です。
（普段は谷さんと同じようにsetした書き方をしてますけど....。）

Sub dnmm()
With Application.CommandBars("Worksheet Menu Bar").Controls
　　With .Add(Type:=msoControlPopup, Temporary:=True)
　　　　.Caption = "新メニュー"
　　　　With .Controls
　　　　　　With .Add(Type:=msoControlButton)
　　　　　　　　.Caption = "マクロ１"
　　　　　　　　.OnAction = "Mcro1"
　　　　　　End With
　　　　　　With .Add　'type略
　　　　　　　　.Caption = "マクロ２"
　　　　　　　　.OnAction = "Mcro2"
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.BeginGroup = True
　　　　　　　　.Caption = "マクロ３"
　　　　　　　　With .Controls.Add
　　　　　　　　　　.Caption = "マクロ３-１"
　　　　　　　　　　.OnAction = "Mcro3"
　　　　　　　　End With
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.Caption = "マクロ４"
　　　　　　　　With .Controls
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-１"
　　　　　　　　　　　　 .OnAction = "Mcro4-1"
　　　　　　　　　　 End With
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-２"
　　　　　　　　　　　　 .OnAction = "Mcro4-2"
　　　　　　　　　　 End With
　　　　　　　　End With
　　　　　　End With
　　　　End With
　　End With
End With
End Sub

3,166 hits