Project.SetCustomUI method (Project)

Legt den internen XML-Wert für eine benutzerdefinierte Menüband-Benutzeroberfläche des Projekts fest.

Syntax

Ausdruck. SetCustomUI( _CustomUIXML_ )

Ausdruck Ein Ausdruck, der ein Project-Objekt zurückgibt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
CustomUIXML	Erforderlich	String	Gültige XML-Daten zum Ändern des Menübands.

Rückgabewert

Nothing

Hinweise

Da Projekt ein binäres Dateiformat verwendet, ist die Methode SetCustomUI für die programmgesteuerte Anpassung des Menübands erforderlich.

Hinweis

[!HINWEIS] Die Methode SetCustomUI wirkt sich auf alle Anpassungen innerhalb des Bereichs des Projekts. Wenn beispielsweise eine Anpassung im globalen Enterprise-Projekt oder im lokalen Global.mpt-Projekt vorhanden ist, müssen Sie die vorhandene XML-Definition in das CustomUIXML-Argument einschließen, um eine zusätzliche Anpassung vorzunehmen.

Der CustomUIXML-Wert muss gültiger XML-Code für den Inhalt des benutzerdefinierten Menübands in Microsoft Office sein. Der XML-Wert muss mit dem Mso:customUI -Element, gefolgt von dem Element mso: Ribbon beginnen. Wenn das Element mso: Ribbon leer ist, werden SetCustomUI menübandanpassungen entfernt.

Es gibt mehrere Artikel zum Anpassen des Menübands für die Fluent-Benutzeroberfläche in Microsoft Office-Anwendungen. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.

Beispiel

Das folgende Beispiel fügt Neue Registerkarte links von der Registerkarte Ansicht im Menüband. Neue Registerkarte enthält eine Gruppe namens Neue Gruppe. Die Schaltfläche in der Gruppe heißt Test-Schaltfläche und das Bild mit dem Namen GetExternalDataFromText in der integrierten Microsoft Office-Symbol-Bibliothek verwendet.

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

Das folgende Beispiel entfernt alle menübandanpassungen, da das Element mso: Ribbon leer ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.