Freigeben über


Document.GetThemeNamesU-Methode (Visio)

Gibt ein gebietsschemaunabhängiges Array der im Dokument enthaltenen Designnamen zurück.

Syntax

Ausdruck. GetThemeNamesU (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 gebietsschemaunabhängigen 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 gebietsschemaunabhängigen Namen von Designs zurück, die im Dokument enthalten sind.

Verwenden Sie die Document.GetThemeNames-Methode , um die Namen gebietsschemaspezifischer 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 GetThemeNamesU-Methode verwendet wird, um die Liste der gebietsschemaunabhängigen Designfarben- und Designeffektnamen im aktiven Dokument abzurufen. Die Liste wird im Direktfenster gedruckt.

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

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.