投稿日	： 2006/12/11(Mon) 19:55
投稿者	： neptune
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: VBからExcelメニューバーを追加する

> Helpを参考にやってみます。ありがとうございます。
手持ちのソースの肝の部分の抜き取りです。
Excelで書いてますかVB用に改造してください。

Dim mBer As CommandBar
Dim mBerMenu As CommandBarControl
Dim mBerCtrl1 As CommandBarControl

        Set mBer = Application.CommandBars("WorkSheet Menu Bar")
        Set mBerMenu = mBer.Controls.Add(Type:=msoControlPopup)
        mBerMenu.CAPTION = "TestMenu"
    
        Set mBerCtrl1 = mBerMenu.Controls.Add(Type:=msoControlButton)
        With mBerCtrl1
            .CAPTION = "TestMenu"
            .OnAction = "Main"
        End With

★ - VBからExcelメニューバーを追加する - はなちー 12/08-17:36No.7859
• Re: VBからExcelメニューバーを追加する - neptune 12/08-20:27 No.7860
  • Re^2: VBからExcelメニューバーを追加する - はなちー 12/11-18:14 No.7873
    • Re^3: VBからExcelメニューバーを追加する - neptune 12/11-19:55 No.7874
      • Re^4: VBからExcelメニューバーを追加する - はなちー 12/22-18:14 No.7989
        • Re^5: VBからExcelメニューバーを追加する - neptune 12/23-20:36 No.7991