Application.TemplatePaths-Eigenschaft (Visio)

Ruft die Pfade ab, in denen von Microsoft Visio nach Vorlagen gesucht wird, oder legt die Pfade fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. TemplatePaths

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

String

HinwBemerkungeneise

Die TemplatePaths-Eigenschaft ist standardmäßig auf eine leere Zeichenfolge ("") festgelegt.

Die an die TemplatePaths-Eigenschaft übergebene und von ihr empfangene Zeichenfolge ist mit der im Dialogfeld Dateispeicherorte angezeigten Zeichenfolge identisch. (Klicken Sie auf die Registerkarte Datei , klicken Sie auf Optionen, klicken Sie auf Erweitert, und klicken Sie dann unter Allgemein auf Dateispeicherorte.) Diese Zeichenfolge wird im HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\TemplatePath Unterschlüssel gespeichert.

In allen Pfaden, die in der TemplatePaths-Eigenschaft benannt sind, und in allen Unterordnern dieser Pfade, wird von Visio nach Vorlagen gesucht. Wenn Sie die TemplatePaths-Eigenschaft an die EnumDirectories-Methode übergeben, wird eine vollständige Liste der vollqualifizierten Pfade in den übergebenen Ordnern zurückgegeben.

Durch Festlegen der TemplatePaths-Eigenschaft werden vorhandene Werte für Vorlagen im Dialogfeld Dateispeicherorte ersetzt. Rufen Sie die vorhandene Zeichenfolge ab, und fügen Sie dann dieser Zeichenfolge den neuen Dateispeicherort wie im folgenden Code an, um vorhandene Werte beizubehalten:

Application.TemplatePaths = Application.TemplatePaths & ";" & "newpath".

Warnung

Das Ändern der Windows-Registrierung auf beliebige Weise, sei es im Registrierungs-Editor oder programmgesteuert, birgt immer ein gewisses Risiko. Eine falsche Änderung kann zu schwerwiegenden Problemen führen, wodurch das Betriebssystem unter Umständen neu installiert werden muss. Es wird empfohlen, die Registrierung eines Computers vor dem Ändern stets zu sichern.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mithilfe der TemplatePaths-Eigenschaft dem Feld Vorlagen einen Pfad hinzufügen.

 
Public Sub TemplatePaths_Example()  
 
    Dim strMessage As String 
    Dim strNewPath As String 
    Dim strTemplatePath As String 
    Dim strTitle As String 
     
    'Get the path we want to add.  
    strTemplatePath = Application.TemplatePaths  
    strTitle = "TemplatePaths"  
    strMessage = "The current content of the Visio Templates path box is:"  
    strMessage = strMessage & vbCrLf & strTemplatePath  
    MsgBox strMessage, vbInformation + vbOKOnly, strTitle  
    strMessage = "Type in an additional path for Visio to look for templates."  
    strNewPath = InputBox$(strMessage, strTitle)  
 
    'Make sure the folder exists and that it's not 
    'already in the Templates path box.  
    strMessage = ""  
    If strNewPath = ""  Then 
        strMessage = "You did not enter a path." 
        ElseIf InStr(strTemplatePath, strNewPath)  Then 
            strMessage = "The path you specified is already in the Templates path box."  
        ElseIf Len(Dir$(strNewPath, vbDirectory)) = 0 And _  
                Len(Dir$(Application.Path & strNewPath, _  
                vbDirectory)) = 0 Then 
            strMessage = "The folder you typed does not exist (or is blank)."  
        Else 
            Application.TemplatePaths = strTemplatePath & ";" & strNewPath  
            strMessage = "We just added " & strNewPath & _  
                " to the Templates path box."  
    End If 
   
    If strMessage <> ""  Then 
        MsgBox strMessage, vbExclamation + vbOKOnly, strTitle  
    End If  
  
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.