次の方法で共有

CommandBarControl.Move メソッド (Office)

  • [アーティクル]

指定した CommandBarControl を既存のコマンド バーに移動します。

注:

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

構文

式。移動 (バー、 前)

式 が必要です。 CommandBarControl オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Bar 省略可能 バリアント型 (Variant) コントロールの移動先のコマンド バーを表す Command オブジェクトを返します。 この引数を省略すると、コントロールはコントロールが現在存在するコマンド バーの末尾に移動します。
Before 省略可能 バリアント型 (Variant) コントロールの位置を表す数字を指定します。 コントロールは、現在この数字に対応した場所にあるコントロールの前に挿入されます。 この引数を省略すると、コントロールは同じコマンド バーに挿入されます。

例

次の使用例は、 Custom という名前のコマンド バーの最初のコンボ ボックス コントロールを、そのコマンド バーの 7 番目のコントロールの前の位置に移動します。 この例では、タグを [選択] ボックス に設定し、すべてのコントロールが 1 行に収まらない場合にコマンド バーから削除される可能性が高いように、コントロールに低優先度を割り当てます。

Set allcontrols = CommandBars("Custom").Controls 
For Each ctrl In allControls 
    If ctrl.Type = msoControlComboBox Then 
        With ctrl 
            .Move Before:=7 
             .Tag = "Selection box" 
             .Priority = 5 
         End With 
         Exit For 
    End If 
Next

関連項目

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

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