Свойство VisWebPageSettings.QuietMode

Статья
04/07/2023

Определяет, отображаются ли диалоговые окна в пользовательском интерфейсе Visio при сохранении документа в виде веб-страницы. Для чтения и записи.

Синтаксис

expression. QuietMode

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

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

Long

Замечания

Задайте значение QuietMode , отличное от нуля (True), чтобы предотвратить появление модальных диалоговых окон в пользовательском интерфейсе при сохранении документа как веб-страницы; Установите для него значение 0 (False), чтобы отобразить диалоговые окна с параметрами по умолчанию. Значение по умолчанию - false.

Если для свойства QuietMode задано значение True , модальные диалоговые окна не будут отображаться в пользовательском интерфейсе Microsoft Visio. однако во время создания страницы отображается индикатор выполнения сохранения как веб-страницы .

Чтобы полностью запретить появление пользовательского интерфейса, используйте свойство SilentMode .

Если свойства QuietMode и SilentMode имеют значение True, свойство SilentMode имеет приоритет и пользовательский интерфейс не отображается.

Пример

В следующем макросе показано, как задать для свойства QuietModeзначение True перед сохранением документа в качестве веб-страницы. Если установить для этого значения значение True , модальные диалоговые окна не будут отображаться в пользовательском интерфейсе— отображается только индикатор выполнения. Так как для свойства OpenBrowser задано значение True, в браузере откроется документ.

Перед выполнением этого макроса замените path\filename.htm допустимым целевым путем на компьютере и именем файла, которое вы хотите назначить веб-странице.

Public Sub QuietMode_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsowebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .QuietMode = True 
 .OpenBrowser = True 
 .TargetPath = "path\filename.htm" 
 End With 
 
 vsoSaveAsWeb.CreatePages 
End Sub

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

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

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