Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 Une expression qui renvoie un objet Document .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Type électronique | Obligatoire | VisThemeTypes | Type du thème, une valeur énumérée à partir de l’énumération VisThemeTypes . Les valeurs possibles, reportez-vous à la section Remarques. |
| Tableau de nom() | Obligatoire | 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. Depuis Microsoft Office Visio 2003, la feuille de calcul ShapeSheet affiche uniquement des noms universels dans les formules et les valeurs des cellules. (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.