Excel VBA質問箱 IV

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

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


60391 / 76736 ←次へ | 前へ→

【20985】Re:2段目のメニューを作る方法について
回答  bykin  - 05/1/5(水) 20:33 -

引用なし
パスワード
   あけましておめでとうさんです。

オブジェクト変数使ったりするから、かえってややこしゅうなってまうんです。
Withを組み合わせればメニュー構造そのままのイメージをコードにすることができまっせ。

↓こんなんかな?・・・ノーチェックでっけど。

Sub test()
  With Application.CommandBars("Worksheet Menu Bar")
    .Reset
    With .Controls
      With .Add(Type:=msoControlPopup, Temporary:=True)
        .Caption = "追加メニュー"
        With .Controls
          With .Add
            .Caption = "Menu_1A"
            .FaceId = 481
            .OnAction = "macro1A"
          End With
          With .Add(msoControlPopup)
            .Caption = "Menu_1B"
            With .Controls
              With .Add
                .Caption = "Menu_2A"
                .FaceId = 485
                .OnAction = "macro2A"
              End With
              With .Add
                .Caption = "Menu_2B"
                .FaceId = 486
                .OnAction = "macro2B"
              End With
            End With
          End With
        End With
      End With
    End With
  End With
End Sub

試してみてな。
ほな。

0 hits

【20981】2段目のメニューを作る方法について kobasan 05/1/5(水) 17:57 質問
【20984】Re:2段目のメニューを作る方法について ichinose 05/1/5(水) 20:22 回答
【20985】Re:2段目のメニューを作る方法について bykin 05/1/5(水) 20:33 回答
【20986】Re:2段目のメニューを作る方法について kobasan 05/1/5(水) 21:25 お礼

60391 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free