Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Determina se as caixas de diálogo são exibidas na interface do usuário do Visio quando você salva um desenho como uma página da Web. Leitura/gravação.
Sintaxe
expressão. QuietMode
Expressão Uma expressão que retorna um objeto VisWebPageSettings .
Valor de retorno
Long
Comentários
Defina QuietMode como um valor não zero (True) para impedir que caixas de diálogo modais apareçam na interface do usuário quando um desenho é salvo como uma página da Web; Defina-o como zero (False) para exibir caixas de diálogo com configurações padrão. O padrão é False.
Definir a propriedade QuietMode como True impede que caixas de diálogo modais apareçam na interface do usuário do Microsoft Visio; no entanto, a barra de progresso Salvar como Página da Web é exibida enquanto a página está sendo criada.
Para impedir que a interface do usuário apareça completamente, use a propriedade SilentMode .
Se as propriedades QuietMode e SilentMode forem definidas como True, a propriedade SilentMode terá precedência e nenhuma interface de usuário será exibida.
Exemplo
A macro a seguir mostra como definir a propriedade QuietMode como True antes de salvar o desenho como uma página da Web. Definir esse valor como True impede que caixas de diálogo modais apareçam na interface do usuário, apenas a barra de progresso é exibida. Como a propriedade OpenBrowser está definida como True, o desenho é aberto no navegador.
Antes de executar essa macro, substitua path\filename.htm por um caminho de destino válido em seu computador e pelo nome de arquivo que você deseja atribuir à sua página da Web.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.