Свойство InvisibleApp.TemplatePaths (Visio)

Возвращает или задает пути, по которому Microsoft Visio ищет шаблоны. Для чтения и записи.

Синтаксис

expression. TemplatePaths

Выражение Переменная, представляющая объект InvisibleApp .

Возвращаемое значение

String

Замечания

Свойство TemplatePaths по умолчанию имеет пустую строку ("").

Строка, переданная и полученная из свойства TemplatePaths , является той же строкой, что и в диалоговом окне Расположения файлов . (Перейдите на вкладку Файл , выберите пункт Параметры, Дополнительно, а затем в разделе Общие выберите пункт Расположение файлов.) Эта строка хранится в подразделе HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Visio\Application\TemplatePath .

Когда Visio ищет шаблоны, он выполняет поиск по всем путям, указанным в свойстве TemplatePaths , и во всех вложенных папках этих путей. Если передать свойство TemplatePathsметоду EnumDirectories , он возвращает полный список полных путей в переданных папках.

Задание свойства TemplatePaths заменяет существующие значения для шаблонов в диалоговом окне Расположение файлов . Чтобы сохранить существующие значения, получите существующую строку, а затем добавьте в нее новый путь к файлу, как показано в следующем коде:

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

Предупреждение

Изменение реестра Windows любым способом, будь то в редакторе реестра или программным способом, всегда сопряжено с определенной степенью риска. Неправильное изменение может привести к серьезным проблемам, для устранения которых может потребоваться переустановка операционной системы. Рекомендуется всегда создавать резервную копию реестра компьютера перед его изменением.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство TemplatePaths для добавления пути в поле Пути к шаблонам.

 
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.