|
>調べたところ、違う方が、その質問
>をしておりました。
>自分では、ありませんでした。
なんか変ですが、まあいいです。^d^
でも、はじめのリンク先とあとのリンク先では内容がぜんぜん違うと思いますが。
何をお聞きになりたいのかがいまいち分かりません。
とりあえず最初の質問、ネストしたメニューの作り方と解釈して一例です。
(但し、通常私はこういう書き方(Withで書いてしまう)はせず、オブジェクト
変数を使うのですが、長くなるのでこんな書き方にしました。)
Sub test()
Dim myBar As CommandBar
Dim myPop As CommandBarPopup
Dim myButton As CommandBarButton
Set myBar = Application.CommandBars("Worksheet Menu Bar")
With myBar
With .Controls.Add(Type:=msoControlPopup, temporary:=True)
.Caption = "一段目-1"
With .Controls.Add(Type:=msoControlPopup, temporary:=True)
.Caption = "二段目-1"
With .Controls.Add(Type:=msoControlPopup, temporary:=True)
.Caption = "三段目-1"
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "1-1-1-1"
.OnAction = "aaa"
End With
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "1-1-1-2"
.OnAction = "bbb"
End With
End With
With .Controls.Add(Type:=msoControlPopup, temporary:=True)
.Caption = "三段目-2"
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "1-1-2-1"
.OnAction = "ccc"
End With
With .Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "1-1-2-2"
.OnAction = "ddd"
End With
End With
End With
End With
End With
End Sub
|
|