Project.SetCustomUI メソッド (Project)

プロジェクトのカスタム リボン ユーザー インターフェイスの内部 XML 値を設定します。

構文

式。 SetCustomUI( _CustomUIXML_ )

式Project オブジェクトを返す式。

パラメーター

戻り値

Nothing

注釈

プロジェクトでは、バイナリ ファイル形式を使用するため、 SetCustomUI メソッドは、プログラムを使用してリボンをカスタマイズする必要があります。

CustomUIXML 値は、Microsoft Office カスタム リボン コンテンツの有効な XML である必要があります。 XML 値は、 mso:customUI 要素は、 mso:ribbon 要素の後に始まる必要があります。 Mso:ribbon 要素が空の場合は、 SetCustomUI は、リボンのカスタマイズを削除します。

Microsoft Office アプリケーションの Fluent ユーザー インターフェイスのリボンのカスタマイズに関するいくつかの記事があります。 詳細については、「Office Fluent リボンの概要」を参照してください。

例

次の例では、リボンの [ 表示] タブの左側に 新しいタブを追加します。 新しいタブには、 新しいグループをという名前のグループが含まれています。 グループ内のボタンは、 [テスト] ボタンの名前はし、組み込みの Microsoft Office アイコン ライブラリの GetExternalDataFromText をという名前のイメージを使用します。

Sub AddCustomUI() 
    Dim customUiXml As String 
 
    customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
        & "<mso:ribbon><mso:tabs><mso:tab id=""myTab"" label=""New Tab"" " _
        & "insertBeforeQ=""mso:TabView"">" _ 
        & "<mso:group id=""group1"" label=""New Group"">" _ 
        & "<mso:button id=""button1"" label=""Test Button"" size=""large"" " _
        & "imageMso=""GetExternalDataFromText"" />" _ 
        & "</mso:group></mso:tab></mso:tabs></mso:ribbon></mso:customUI>" 
 
    ActiveProject.SetCustomUI (customUiXml) 
End Sub

Mso:ribbon 要素が空であるために、すべてのリボンのカスタマイズを削除する例を次にします。

Sub RemoveCustomUI() 
    Dim customUiXml As String 
 
    customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
        & "<mso:ribbon></mso:ribbon></mso:customUI>" 
 
    ActiveProject.SetCustomUI (customUiXml) 
End Sub

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

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