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 質問
【39068】Re:メニューバーへオプションボタンの配置 kobasan 06/6/16(金) 23:27 発言
【39069】Re:メニューバーへオプションボタンの配置 ひろ 06/6/16(金) 23:54 お礼

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