Propriedade Application.SaveAsWebObject (Visio)

Retorna uma referência à interface IDispatch de um objeto VisSaveAsWeb . Somente leitura.

Sintaxe

expressão. SaveAsWebObject

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Objeto

Comentários

Depois de ter uma referência ao objeto VisSaveAsWeb , você pode usar os objetos, métodos e propriedades da API Salvar como Página da Web para publicar documentos do Microsoft Visio na Web. Para obter mais informações sobre a API Salvar como Página da Web, pesquise "API Salvar como Página da Web" no MSDN.

Para poder trabalhar com a API Salvar como Página da Web, você deve obter uma referência à Biblioteca de Tipo Web Salvar como Web do Microsoft Visio 14.0 no projeto VBA (Microsoft Visual Basic ou Microsoft Visual Basic for Applications). Para obter essa referência no VBA, execute o seguinte procedimento:

1. No grupo Código na guia Desenvolvedor , clique em Visual Basic.

2. No menu Ferramentas, clique em Referências.

3. Na lista Referências Disponíveis, selecione Biblioteca de Tipos SaveAsWeb do Microsoft Visio 14.0 e clique em OK.

Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , essa propriedade será mapeada para os seguintes tipos:

• Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

Exemplo

Esta macro VBA mostra como usar a propriedade SaveAsWebObject para obter um objeto VisSaveAsWeb. Ele também mostra como obter um objeto VisWebPageSettings , configurar configurações de página da Web e criar uma página da Web para exibir o documento ativo do Visio. A macro obtém um objeto aplicativo visio e passa-o para o procedimento SaveAsWeb , que obtém o objeto VisSaveAsWeb , configura as configurações e cria a página da Web.

Antes de executar essa macro, obtenha uma referência à Biblioteca de Tipos da Web do Microsoft Visio 14.0, conforme descrito acima, e substitua path\filename no código pelo caminho completo para e o nome do arquivo .htm que você deseja criar em seu computador para exibir a página da Web.

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.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.