Utilizar o modelo de objeto Guardar como Página Web do Visual Basic: Um exemplo

Para utilizar a API Guardar como Página Web no seu projeto do Visual Basic, defina uma referência no seu projeto como Biblioteca de Tipo Web Guardar Como do Microsoft Visio 15.0.

Observação

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

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

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

Quando cria uma página Web e os respetivos ficheiros de suporte (também denominado projeto de página Web), normalmente seguirá estes passos:

  1. Utilize a propriedade SaveAsWebObject do objeto Aplicação do Visio para obter uma instância de um objeto VisSaveAsWeb .

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

  3. Defina as propriedades do objeto VisWebPageSettings .

    Observação

    Tem de fornecer sempre um caminho de destino para os seus ficheiros.

  4. Chame o método AttachToVisioDoc para identificar o documento a guardar como uma página Web. Se não especificar qual o documento a guardar, o desenho ativo é guardado.

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

O procedimento seguinte mostra como abrir um novo projeto de página Web, definir propriedades selecionadas e criar os ficheiros da página 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.

  • Last updated on