Document.GetThemeNames-Methode (Visio)

Artikel
04/07/2023

Gibt ein gebietsschemaspezifisches Array der im Dokument enthaltenen Designnamen zurück.

Syntax

Ausdruck. GetThemeNames (eType, NameArray())

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

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
eType	Erforderlich	VisThemeTypes	Der Designtyp, ein Aufzählungswert aus der VisThemeTypes-Enumeration. Mögliche Werte finden Sie in den Hinweisen.
NameArray()	Erforderlich	String	Ausgabeparameter. Ein Array der gebietsschemaspezifischen Designnamen, die von der Methode zurückgegeben werden.

Rückgabewert

Nichts

Bemerkungen

Übergeben Sie als eType-Parameter einen Wert aus der VisThemeTypes-Enumeration, die in der Visio-Typbibliothek deklariert ist.

Konstante	Wert	Beschreibung
visThemeTypeColor	1	Farbdesigns.
visThemeTypeEffect	2	Effektdesigns.

Übergeben Sie als NameArray()-Ausgabeparameter ein leeres Array ohne Dimensionen, das den Datentyp String aufweist. Visio gibt das Array gefüllt mit gebietsschemaspezifischen Namen von Designs zurück, die im Dokument enthalten sind.

Verwenden Sie die Document.GetThemeNamesU-Methode , um gebietsschemaunabhängige Designs im Dokument abzurufen.

Hinweis

Ab Microsoft Visio 2000 können Sie sowohl lokale als auch universelle Namen verwenden, um auf Shapes, Master-Shapes, Dokumente, Zeichenblätter, Zeilen, Add-Ons, Zellen, Hyperlinks, Formatvorlagen, Schriftarten, Master-Shape-Verknüpfungen, Benutzeroberflächenobjekte, Designs und Layer von Visio zu verweisen. Wenn ein Benutzer z. B. ein Shape benennt, gibt der Benutzer einen lokalen Namen an. Ab Microsoft Office Visio 2003 zeigt das ShapeSheet-Arbeitsblatt nur universelle Namen in Zellformeln und -werten an. (In früheren Versionen von Visio waren universelle Namen auf der Benutzeroberfläche nicht sichtbar.) Als Entwickler können Sie universelle Namen in einem Programm verwenden, wenn Sie einen Namen nicht jedes Mal ändern möchten, wenn eine Lösung lokalisiert wird.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie die GetThemeNames-Methode verwendet wird, um die Liste der gebietsschemaspezifischen Designfarbe- und Designeffektnamen im aktiven Dokument abzurufen. Die Liste wird im Direktfenster gedruckt.

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