Excel VBA質問箱 IV

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

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


7456 / 13644 ツリー ←次へ | 前へ→

【39067】メニューバーへオプションボタンの配置 ひろ 06/6/16(金) 23:14 質問[未読]
【39068】Re:メニューバーへオプションボタンの配置 kobasan 06/6/16(金) 23:27 発言[未読]
【39069】Re:メニューバーへオプションボタンの配置 ひろ 06/6/16(金) 23:54 お礼[未読]

【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

【39068】Re:メニューバーへオプションボタンの配置
発言  kobasan  - 06/6/16(金) 23:27 -

引用なし
パスワード
   ひろ さん 今晩は。

>そこで質問なのですが、
>メニューバーへ
>チェックボックスやオプションボタンを配置する事は
>可能でしょうか?

ヘルプを見る限り、できないと思います。

ヘルプを参照してみてください。

以下ヘルプの引用です。
Add メソッド (CommandBarControls コレクション)
            

新しいコマンド バー コントロールを作成し、指定したコマンド バーのコントロールのコレクションに追加します。CommandBarButton、CommandBarComboBox、CommandBarPopup オブジェクトのいずれかを返します。

構文

expression.Add(Type, Id, Parameter, Before, Temporary)

expression  必ず指定します。CommandBarControls オブジェクトを表すオブジェクト式を指定します。

Type  省略可能です。バリアント型 (Variant) の値を指定します。指定したコマンド バーに追加するコントロールの種類を指定します。使用できる定数は、MsoControlType クラスの msoControlButton、 msoControlEdit、 msoControlDropdown、 msoControlComboBox、 msoControlPopup のいずれかです。

【39069】Re:メニューバーへオプションボタンの配置
お礼  ひろ  - 06/6/16(金) 23:54 -

引用なし
パスワード
   kobasanさん
回答ありがとうございます。
出来無い事がはっきりしただけでも、
大変な進歩でした。ありがとございます。
代替として、
FaceIdを指定して似た画像を使用しようと思います。

ありがとうございました。

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