EXCEL VBAでメニュー作成時のメニュー名表示

質問

EXCEL VBAでサブメニューなしのメニューを下記コードで作成したところ、
メニューにメニュー名"新しいメニュー(&C)"が表示されず、
メニューの領域(表現がいまいちですが..)のみ作成されます。
(EXCEL=2002SP3 OS=WindowsXP Home Edition Ver.2002 SP2)

Dim myBar As CommandBarButton
Set myBar = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton)
myBar.Caption = "新しいメニュー(&C)"
myBar.OnAction = "マクロ"
myBar.Visible = True

作成したメニューで右クリックから"ユーザー設定"画面を表示し内容を見ると、
"名前(N):"には"新しいメニュー(&C)" と設定されているのですが、
"既定のスタイル(U)"にチェックが入っており、これを
"テキストのみ表示(T)"にチェックを入れると、メニューに
名前"新しいメニュー(&C)"が表示されます。

作成したメニューの名前の表示方法(VBAから)をご教授ねがいます。

回答No.1

bonaron · ベストアンサー

myBar.Style = msoButtonCaption
を加えてください。

お礼

回答ありがとうございます。
無事問題解決しました。