Compartilhar via

Propriedade Application.SaveAsWebObject (Visio)

Devolve 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

Assim que tiver uma referência ao objeto VisSaveAsWeb , pode utilizar os objetos, métodos e propriedades da API Guardar como Página 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 Guardar como Página Web, tem de obter uma referência para a Biblioteca de Tipo Web Guardar Como do Microsoft Visio 14.0 no seu projeto Microsoft Visual Basic ou Microsoft Visual Basic for Applications (VBA). Para obter essa referência no VBA, execute o seguinte procedimento:

  1. No grupo Código , no separador Programador , 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 Visual Studio inclui a referência de Microsoft.Office.Interop.Visio, essa propriedade é 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. Também mostra como obter um objeto VisWebPageSettings , configurar definições de página Web e criar uma página Web para apresentar o documento ativo do Visio. A macro obtém um objeto da Aplicação do Visio e transmite-o para o procedimento SaveAsWeb , que obtém o objeto VisSaveAsWeb , configura as definições e cria a página Web.

Antes de executar esta macro, obtenha uma referência à Biblioteca de Tipos de Web Guardar Como do Microsoft Visio 14.0 , conforme descrito acima, e substitua path\filename no código pelo caminho completo para e pelo nome do ficheiro de .htm que pretende criar no seu computador para apresentar a página 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.

  • Last updated on