Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48905 / 76732

←次へ　｜　前へ→


	【32755】Re:メニューボタンについて

だるま

- 05/12/21(水) 16:45 -


	引用なし

	パスワード

>調べたところ、違う方が、その質問
>をしておりました。
>自分では、ありませんでした。

なんか変ですが、まあいいです。^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

0 hits

▼

【32710】メニューボタンについて おーとまっちっく 05/12/21(水) 9:22