Свойство VisWebPageSettings.ThemeName

Статья
04/07/2023

Назначает тему веб-страницы создаваемой странице. Для чтения и записи.

Синтаксис

expression. ThemeName

Выражение Выражение, возвращающее объект VisWebPageSettings .

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

String

Замечания

Используйте темы, предоставляемые Microsoft Visio, или темы, созданные вами самостоятельно. Если вы хотите создать собственную тему, сделайте следующее:

Создайте HTM-файл, содержащий следующий термин в HTML-теге: ##VIS_SAW_FILE##. Visio распознает файлы HTM, содержащие этот тег, как файлы темы.
Сохраните файл в следующей папке: \ your_Visio_path\ your_language_ID\

Затем файл темы появится в раскрывающемся списке Узел на веб-странице диалогового окна Сохранить как веб-страницу (вкладка >BackstageButtonСохранить как>сохранить как тип веб-страницы >(*.htm;*.html)>Публикация>дополнительно).

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство ThemeName для назначения базовой темы (предоставленной Visio) создаваемой веб-странице.

Перед выполнением этого макроса замените path\filename.htm допустимым целевым путем на компьютере и именем файла, которое вы хотите назначить веб-странице. Кроме того, замените your_Visio_path и your_language_ID путем к Microsoft Visio на компьютере (например, C:\Program Files\Microsoft Office\Visio14\1033...).

Public Sub ThemeName_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .ThemeName = "your_Visio_path\your_language_ID\Basic.htm" 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
End Sub

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

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

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