Método VisSaveAsWeb.AttachToVisioDoc

Indica qual documento salvar como uma página da Web.

Sintaxe

expressão. AttachToVisioDoc (docObj)

Expressão Uma expressão que retorna um objeto VisSaveAsWeb .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
docObj	Obrigatório	Document	Um objeto de Automação que dá suporte à interface IVDocument .

Valor de retorno

Nothing

Comentários

Os programas do Microsoft Visual Basic podem passar um objeto Visio Document para esse método porque os objetos criados a partir da classe Visio Document dão suporte à interface IVDocument .

O método AttachToVisioDoc consulta a interface IUnknown para a presença da interface IVDocument .

Exemplo

O exemplo a seguir mostra como abrir um arquivo existente e salvá-lo como uma página da Web usando as configurações padrão do recurso Salvar como Página da Web e os métodos AttachToVisioDoc e CreatePages . Antes de executar este exemplo, substitua path\filename por um caminho válido e um nome de arquivo para um documento do Visio passar para o método Open . Além disso, substitua targetpath\filename por um caminho de destino válido e um nome de arquivo para os arquivos de projeto da página da Web.

Public Sub AttachToVisioDoc_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("<variable>path\filename</variable>") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "<variable>targetpath\filename</variable>"

    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
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.