InvisibleApp.StencilPaths-Eigenschaft (Visio)

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

Syntax

Ausdruck. StencilPaths

Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.

Rückgabewert

String

HinwBemerkungeneise

Die StencilPaths-Eigenschaft enthält standardmäßig eine leere Zeichenfolge ("").

Die an die StencilPaths-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\StencilPath Unterschlüssel gespeichert.

Visio sucht in allen Pfaden, die in der StencilPaths-Eigenschaft angegeben sind, und in allen Unterordnern dieser Pfade nach Schablonen. Wenn Sie die StencilPaths-Eigenschaft an die EnumDirectories­­-Methode übergeben, wird eine komplette Liste eindeutiger Pfade für die übergebenen Ordner zurückgegeben.

Durch festlegen der StencilPaths-Eigenschaft werden vorhandene Werte für Schablonen 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.StencilPaths = Application.StencilPaths & ";" & "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 StencilPaths-Eigenschaft den Schablonen einen Pfad hinzufügen.

 
Public Sub ShowStencilPaths_Example() 
  
    Dim strMessage As String 
    Dim strNewPath As String 
    Dim strStencilPath As String 
    Dim strTitle As String 
 
    'Get the path we want to add.  
    strStencilPath = Application.StencilPaths  
    strTitle = "StencilPaths"  
    strMessage = "The current content of the Visio Stencils box is:"  
    strMessage = strMessage & vbCrLf & strStencilPath  
    MsgBox strMessage, vbInformation + vbOKOnly, strTitle  
    strMessage = "Type in an additional path for Visio to look for stencils. "  
    strNewPath = InputBox$(strMessage, strTitle)  
 
    'Make sure the folder exists and that it's not 
    'already in the stencil paths.  
    strMessage = ""  
    If strNewPath = ""  Then 
        strMessage = "You did not enter a path." 
        ElseIf InStr(strStencilPath, strNewPath)  Then 
            strMessage = "The path you specified is already in the stencil paths."  
        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.StencilPaths = strStencilPath & ";" & strNewPath  
            strMessage = "We just added " & strNewPath & _  
                " to the stencil paths."  
        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.