|
お世話になります。
現在、エクセルに新しいメニューバーを
Excel VBAにて登録するようにしています。
そこで質問なのですが、
メニューバーへ
チェックボックスやオプションボタンを配置する事は
可能でしょうか?
もしご存知のた方いらっしゃいましたら、
ご教授よろしくお願いいたします。
なお、メニューバーへの追加は以下のコードで
行っております。
Sub test()
Dim c As CommandBarControl
Dim myMenu As CommandBarControl
For Each c In Application.CommandBars(1).Controls
If c.Caption = "Test" Then
Exit Sub
End If
Next c
Set myMenu = Application.CommandBars(1). _
Controls.Add(msoControlPopup)
myMenu.Caption = "Test"
With myMenu.Controls.Add
.Caption = "Test1"
.OnAction = "test"
.BeginGroup = False
End With
End Sub
|
|