Méthode Document.GetThemeNamesU (Visio)

Article
04/07/2023

Renvoie un tableau indépendant des paramètres régionaux qui contient les noms des thèmes contenus dans le document.

Syntaxe

expression. GetThemeNamesU (eType, NameArray())

Expression Expression qui renvoie un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
eType	Requis	VisThemeTypes	Type du thème, valeur énumérée de l’énumération VisThemeTypes . Les valeurs possibles, reportez-vous à la section Remarques.
NameArray()	Requis	String	Paramètre de sortie. Tableau des noms de thèmes qui sont indépendants des paramètres régionaux renvoyé par la méthode.

Valeur renvoyée

Aucune

Remarques

Pour le paramètre eType, transmettez une valeur qui est issue de l'énumération VisThemeTypes, qui est déclarée dans la bibliothèque de types de Visio.

Constante	Valeur	Description
visThemeTypeColor	1	Thèmes de couleurs.
visThemeTypeEffect	2	Thèmes d'effets.

Pour le paramètre de sortie TableauNom(), transmettez un tableau vide et sans dimension de type String. Visio renvoie le tableau avec les noms indépendants des paramètres régionaux des thèmes contenus dans le document.

Pour obtenir les noms des thèmes spécifiques aux paramètres régionaux dans le document, utilisez la méthode Document.GetThemeNames .

Remarque

À partir de Microsoft Office Visio 2000, vous pouvez utiliser des noms locaux et universels pour faire référence aux formes, formes de base, documents, pages, lignes, modules complémentaires, cellules, liens hypertexte, styles, polices, raccourcis de formes de base, objets UI, thèmes et calques Visio. Lorsqu’un utilisateur nomme une forme, par exemple, l’utilisateur spécifie un nom local. À compter de Microsoft Office Visio 2003, la feuille de calcul ShapeSheet affiche uniquement les noms universels dans les formules de cellule et les valeurs. (Dans les versions antérieures de Visio, les noms universels n’étaient pas visibles dans l’interface utilisateur.) En tant que développeur, vous pouvez utiliser des noms universels dans un programme lorsque vous ne souhaitez pas modifier un nom chaque fois qu’une solution est localisée.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode GetThemeNamesU pour obtenir la liste des noms indépendants des paramètres régionaux des effets et des couleurs de thème du document actif. Elle affiche la liste dans la fenêtre Exécution.

Public Sub GetThemeNamesU_Example() 
 
    Dim astrNames() As String 
    Dim strThemeName As String 
    Dim intArrayCounter As Integer 
     
    ActiveDocument.GetThemeNamesU visThemeTypeColor, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
    Debug.Print "-------------------------------------------" 
     
    ActiveDocument.GetThemeNamesU visThemeTypeEffect, astrNames 
     
    For intArrayCounter = LBound(astrNames) To UBound(astrNames) 
        strThemeName = astrNames(intArrayCounter) 
        Debug.Print strThemeName 
    Next 
     
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.

Partager via