Propiedad Application.TemplatePaths (Visio)

Obtiene o establece las rutas de acceso donde Microsoft Visio busca las plantillas. Lectura y escritura.

Sintaxis

expresión. TemplatePaths

expresión Variable que representa un objeto Application.

Valor devuelto

Cadena

Comentarios

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

La cadena pasada a la propiedad TemplatePaths 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\TemplatePath .

Cuando la aplicación busque las plantillas, las buscará en todas las rutas de acceso especificadas en la propiedad TemplatePaths y en todas las subcarpetas de dichas rutas. Si pasa la propiedad TemplatePaths 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 TemplatePaths , se reemplazan los valores existentes de Plantillas 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.TemplatePaths = Application.TemplatePaths & ";" & "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 TemplatePaths para agregar una ruta de acceso al cuadro de rutas de acceso Plantillas.

 
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

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.