Свойство Application.StartupPaths (Visio)

Статья
04/07/2023

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

Синтаксис

expression. StartupPaths

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

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

Строка

Замечания

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

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

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

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

Application.StartupPaths = Application.StartupPaths & ";" & "newpath ".

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

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

Пример

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

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

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

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

Поделиться через