Compartilhar via

Propriedade VisWebPageSettings.EndPage

  • Artigo

Especifica o número de página da última página no intervalo quando você salva um intervalo de páginas como uma página da Web. Leitura/gravação.

Sintaxe

expressão. Endpage

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

Valor de retorno

Long

Comentários

O número da página inicial é especificado na propriedade StartPage .

O valor da propriedade EndPage corresponde ao valor na caixa para na guia Geral da caixa de diálogo Salvar Como Página da Web (guia >BackstageButtonSalvar como>Salvar como página Da Web da lista > de tipos (*.htm;*.html)>Publicar).

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar a propriedade EndPage para salvar um intervalo de páginas em um desenho (nesse caso, da página 2 à página 3) como uma página da Web em vez do desenho completo.

Essa macro pressupõe que o desenho atual do Visio contenha pelo menos três páginas.

Antes de executar essa macro, substitua path\filename.htm por um caminho de destino válido em seu computador e o nome de arquivo que você deseja atribuir à sua página da Web.

Public Sub EndPage_Example() 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 With vsoWebSettings 
 .StartPage = 2 
 .EndPage = 3 
 .TargetPath = "path\filename.htm" 
 End With 
 
 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.