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

Статья
04/07/2023

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

Синтаксис

expression. HelpPaths

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

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

Строка

Замечания

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

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

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

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

Application.HelpPaths = Application.HelpPaths & ";" & "newpath".

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

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

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как получить и задать свойство HelpPaths объекта Application. Перед выполнением этого макроса замените fullpath(s) путем или путями к расположению или расположениям, в которых Visio будет искать файлы справки.

 
Public Sub GetHelpPaths_Example()  
 
    Dim strCurrentPath As String 
 
    'Retrieve the current path to Visio Help files.  
    strCurrentPath = Application.HelpPaths  
    MsgBox ("The current path for Microsoft Visio Help files is" + strCurrentPath)  
 
End Sub   
 
Public Sub SetHelpPaths_Example()  
 
    Dim strNewPath As String 
 
    'Store the new path.  
    strNewPath = "fullpath(s)"  
 
    'Set the new path in the Application object.  
    Application.HelpPaths = strNewPath  
 
End Sub

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

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