Método VisSaveAsWeb.CreatePages

Inicia a criação de página da Web.

Sintaxe

expressão. CreatePages

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

Valor de retorno

Nothing

Comentários

Como o objeto VisSaveAsWeb usa as configurações em seu objeto VisWebPageSettings para criar a página da Web, você deve chamar o método CreatePages depois de fazer as alterações necessárias no objeto VisWebPageSettings .

Para especificar qual documento salvar como uma página da Web, use o método AttachToVisioDoc . Se nenhum documento for especificado, o Microsoft Visio salvará o documento ativo por padrão.

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 CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    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.