Méthode Project.SetCustomUI (Project)

Article
04/07/2023

Définit la valeur XML interne pour l’interface utilisateur personnalisée de type Ruban du projet.

Syntaxe

expression. SetCustomUI( _CustomUIXML_ )

Expression Expression qui renvoie un objet Project .

Parameters

Nom	Requis/Facultatif	Type de données	Description
CustomUIXML	Obligatoire	String	Donnée XML valide pour modifier le Ruban.

Valeur renvoyée

Nothing

Remarques

Étant donné que Project utilise un format de fichier binaire, la méthode SetCustomUI est nécessaire pour personnaliser le ruban par programmation.

Remarque

La méthode SetCustomUI affecte toutes les personnalisations dans l’étendue du projet. Par exemple, s’il existe une personnalisation dans le projet global d’entreprise ou le projet Global.mpt local, pour effectuer une personnalisation supplémentaire, vous devez inclure la définition XML existante dans l’argument CustomUIXML.

La valeur CustomUIXML doit correspondre à un XML valide pour le contenu du Ruban personnalisé Microsoft Office. La valeur XML doit commencer par l’élément mso:customUI, suivie de mso:ribbon. Si l’élément mso:ribbon est vide, SetCustomUI supprime les personnalisations du Ruban.

Il existe plusieurs articles sur la personnalisation du ruban pour l’interface utilisateur Fluent dans les applications Microsoft Office. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.

Exemple

L’exemple suivant ajoute Nouvel onglet à gauche de l’onglet AFFICHAGE dans le ruban. Nouvel onglet contient un groupe nommé Nouveau groupe. Le bouton du groupe est nommé Bouton test et utilise l’image nommée GetExternalDataFromText dans la bibliothèque d’icônes Microsoft Office intégrée.

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

Le code exemple suivant supprime toutes les personnalisations de Ruban car l’élément mso:ribbon est vide.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via