CommandBars.ActiveMenuBar プロパティ (Office)

  • [アーティクル]

コンテナー アプリケーションのアクティブなメニュー バーを表す CommandBar オブジェクトを取得します。 読み取り専用です。

注:

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

構文

式。ActiveMenuBar

式CommandBars オブジェクトを表す変数。

例

次の使用例は、アクティブなメニュー バーの末尾に Custom という名前の一時的なポップアップ コントロールを追加し、 Import という名前のコントロールをポップアップ コントロールに追加します。

Set myMenuBar = CommandBars.ActiveMenuBar 
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) 
newMenu.Caption = "Custom" 
Set ctrl1 = newMenu.CommandBar.Controls _ 
    .Add(Type:=msoControlButton, Id:=1) 
With ctrl1 
    .Caption = "Import" 
    .TooltipText = "Import" 
    .Style = msoButtonCaption 
End With

関連項目

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

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