Propiedad Application.StencilPaths (Visio)

Obtiene o establece las rutas de acceso donde Microsoft Visio busca las galerías de símbolos. Lectura y escritura.

Sintaxis

expresión. StencilPaths

expresión Variable que representa un objeto Application.

Valor devuelto

Cadena

Comentarios

De forma predeterminada, la propiedad StencilPaths está establecida en una cadena vacía ("").

La cadena pasada a la propiedad StencilPaths y recibida de ésta es la misma cadena que se muestra en el cuadro de diálogo Ubicaciones de archivos. (Haga clic en la pestaña Archivo , en Opciones, en Opciones avanzadasy, a continuación, en General, haga clic en Ubicaciones de archivo). Esta cadena se almacena en la subclave HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\StencilPath .

Cuando la aplicación busque galerías de símbolos, las buscará en todas las rutas de acceso especificadas en la propiedad StencilPaths y en todas las subcarpetas de dichas rutas. Si pasa la propiedad StencilPaths al método EnumDirectories, éste devolverá una lista de todas las rutas de acceso completas de las carpetas que se le han pasado.

Al establecer la propiedad StencilPaths , se reemplazan los valores existentes para las galerías de símbolos en el cuadro de diálogo Ubicaciones de archivo. Si desea conservar los valores existentes, obtenga la cadena existente y, a continuación, anexe la nueva ruta de acceso a dicha cadena, como se muestra en el código siguiente:

Application.StencilPaths = Application.StencilPaths & ";" & "newpath ".

Advertencia

Modificar el Registro de Windows de cualquier manera, ya sea en el Editor del Registro o mediante programación, siempre conlleva algún grado de riesgo. Las modificaciones incorrectas pueden ocasionar serios problemas que pueden requerir la reinstalación del sistema operativo. Es aconsejable realizar siempre una copia de seguridad del Registro de un equipo antes de modificarlo.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad StencilPaths para agregar una ruta de acceso a las galerías de símbolos.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.