次の方法で共有

CommandBarControl オブジェクト (Office)

  • [アーティクル]

コマンド バー コントロールを表します。 CommandBarControl オブジェクトは、CommandBarControls コレクションのメンバーです。 CommandBarControl オブジェクトのプロパティとメソッドは、すべて CommandBarButton 、 CommandBarComboBox 、および CommandBarPopup の各オブジェクトによって共有されます。

注:

[!メモ] 一部の Microsoft Office アプリケーションにおける CommandBars の使用方法が、Microsoft Office Fluent ユーザー インターフェイスの新しいリボン コンポーネントによって置き換えられました。 詳細については、「Office Fluent リボンの概要」を参照してください。

注釈

ユーザー設定のコマンド バー コントロールを操作するには、CommandBarButton、CommandBarComboBox、および CommandBarPopup オブジェクトを使用して、Microsoft Visual Basic のコードを記述します。

コンテナー アプリケーションの組み込みのコントロールは、これら 3 つのオブジェクトで表すことができないので、CommandBarControl オブジェクトを使用して、コードを記述します。 CommandBarControl オブジェクトを取得するには、Controls (index) を使用します。index はコントロールのインデックス番号です。 (コントロールの Type プロパティは、msoControlLabel、msoControlExpandingGrid、msoControlSplitExpandingGrid、msoControlGrid、または msoControlGauge である必要があります)。

CommandBarControl として宣言した変数は、CommandBarButton、CommandBarComboBox、および CommandBarPopup の値に割り当てることができます。

例

FindControl メソッドを使用して CommandBarControl オブジェクトを返すこともできます。 次の例では、 msoControlGauge 型のコントロールを検索します。見つかると、コントロールのインデックス番号と、それを含むコマンド バーの名前が表示されます。 この例では、変数 lbl は CommandBarControl オブジェクトを表します。

Set lbl = CommandBars.FindControl(Type:= msoControlGauge) 
If lbl Is Nothing Then 
    MsgBox "A control of type msoControlGauge was not found." 
Else 
    MsgBox "Control " & lbl.Index & " on command bar " _ 
        & lbl.Parent.Name & " is type msoControlGauge" 
End If

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。