Compartilhar via

Usando o modelo de objeto Salvar como Página da Web do Visual Basic: Um exemplo

  • Artigo

Para usar a API Salvar como Página da Web em seu projeto do Visual Basic, defina uma referência em seu projeto para a Biblioteca salvar como tipo Web do Microsoft Visio 15.0.

Observação

No Editor do Visual Basic incluído no Visio, você pode encontrar a lista de referências disponíveis escolhendo Referências no menu Ferramentas . No Visual Basic 6.0, você pode encontrar essa lista escolhendo Referências no menu Projeto .

O modelo Salvar como Página da Web contém duas classes: VisSaveAsWeb e VisWebPageSettings, que implementam as interfaces IVisSaveAsWeb e IVisWebPageSettings , respectivamente.

  • Um objeto VisSaveAsWeb implementa os métodos que executam o processo de criação da página da Web.
  • Um objeto VisWebPageSettings contém as propriedades do projeto da página da Web.

Ao criar uma página da Web e seus arquivos de suporte (também chamado de projeto de página da Web), normalmente você seguirá estas etapas:

  1. Use a propriedade SaveAsWebObject do objeto Aplicativo visio para obter uma instância de um objeto VisSaveAsWeb .

  2. Use a propriedade WebPageSettings do objeto VisSaveAsWeb para obter uma referência a um objeto VisWebPageSettings , que você pode usar para obter ou definir as configurações da página da Web para seu projeto.

  3. Defina as propriedades do objeto VisWebPageSettings .

    Observação

    Você sempre deve fornecer um caminho de destino para seus arquivos.

  4. Chame o método AttachToVisioDoc para identificar o documento a ser salvo como uma página da Web. Se você não especificar qual documento salvar, o desenho ativo será salvo.

  5. Chame o método CreatePages para iniciar a operação Salvar como Página da Web.

O procedimento a seguir mostra como abrir um novo projeto de página da Web, definir propriedades selecionadas e criar os arquivos da página da Web.

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 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.