Excel VBA質問箱 IV

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

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


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

42727 / 76732

←次へ　｜　前へ→


	【39067】メニューバーへオプションボタンの配置

ひろ - 06/6/16(金) 23:14 -


	引用なし

	パスワード

お世話になります。
現在、エクセルに新しいメニューバーを
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

0 hits

▼

【39067】メニューバーへオプションボタンの配置 ひろ 06/6/16(金) 23:14

≪