Propriedade View.ActivePage (Publisher)

Retorna um objeto Page que representa a página atualmente exibida na janela do Microsoft Publisher.

Sintaxe

expressão. ActivePage

expressão Uma variável que representa um objeto Ver .

Valor de retorno

Page

Exemplo

Este exemplo grava a página ativa como uma imagem JPEG. Tenha em atenção que tem de ser substituído por um caminho de ficheiro válido para que PathToFile este exemplo funcione.

Sub SavePageAsPicture() 
 ActiveView.ActivePage.SaveAsPicture _ 
 FileName:="PathToFile" 
End Sub

Este exemplo adiciona uma guia de régua horizontal e uma guia de régua vertical à página ativa, que entram em interseção no ponto central da página.

Sub SetRulerGuidesOnActivePage() 
 Dim intHeight As Integer 
 Dim intWidth As Integer 
 
 With ActiveView.ActivePage 
 intHeight = .Height / 2 
 intWidth = .Width / 2 
 With .RulerGuides 
 .Add Position:=intHeight, Type:=pbRulerGuideTypeHorizontal 
 .Add Position:=intWidth, Type:=pbRulerGuideTypeVertical 
 End With 
 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.