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.
Carrega as definições da página Web que foram guardadas no registo numa instância anterior do Microsoft Visio.
Sintaxe
expressão. InitSettings
expressão Uma expressão que devolve um objeto VisWebPageSettings .
Valor de retorno
Nothing
Comentários
Utilize o método InitSettings para reinstalar as definições da página Web para os valores armazenados no registo.
Exemplo
O exemplo seguinte mostra como utilizar o método InitSettings para reinstalar as definições da página Web para as que foram guardadas numa instância anterior do Visio.
Antes de executar este exemplo, substitua por path\filename um caminho válido e um nome de ficheiro para o ficheiro de projeto da página Web.
Public Sub InitSettings_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
With vsoWebSettings
.InitSettings
.TargetPath = "path\filename"
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.