CommandBarComboBox.List プロパティ (Office)
戻します コントロールに項目を設定を取得または取得します。 読み取り/書き込みが可能です。
注:
[!メモ] 一部の Microsoft Office アプリケーションにおける CommandBars の使用方法が、Microsoft Office Fluent ユーザー インターフェイスの新しいリボン コンポーネントによって置き換えられました。 詳細については、「Office Fluent リボンの概要」を参照してください。
構文
式。リスト (インデックス)
式CommandBarComboBox オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Index | 必須 | 整数型 (Integer) | 設定する項目のリストを指定します。 |
注釈
組み込みのコンボ ボックス コントロールの場合、このプロパティは値の取得のみ可能です。
例
次の使用例は、コンボ ボックス コントロールの 4 番目のリスト アイテムをチェックします。キャプションは、Custom という名前のコマンド バーの [Stock Data]\(ストック データ\) です。 値が "トピックを表示" でない場合、コンボ ボックスが壊れている可能性があるので、アプリケーションを再インストールするように要求するメッセージを表示します。
Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
With myBar
.Controls.Add Type:=msoControlComboBox, ID:=1
.Visible = True
End With
With CommandBars("Custom").Controls(1)
.AddItem "Get Stock Quote", 1
.AddItem "View Chart", 2
.AddItem "View Fundamentals", 3
.AddItem "View News", 4
.Caption = "Stock Data"
.DescriptionText = "View Data For Stock"
End With
If CommandBars("Custom").Controls(1).List(4) _
> "View News" Then
MsgBox ("Stock Data appears to be damaged." & _
" Please reinstall application.")
End If
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示