Compartilhar via

Propriedade Page.PageType (Publisher)

  • Artigo

Retorna uma constante PbPageType que representa o tipo de página. Somente leitura.

Sintaxe

expressão. Pagetype

Expressão Uma variável que representa um objeto Page .

Valor de retorno

PbPageType

Comentários

O valor da propriedade PageType pode ser uma das constantes PbPageType declaradas na biblioteca de tipos do Microsoft Publisher.

Exemplo

Este exemplo adiciona uma forma nos cantos alternativos de cada página na publicação ativa.

Sub GetPageType() 
 Dim pgCount As Page 
 For Each pgCount In ActiveDocument.Pages 
 If pgCount.PageType = pbPageLeftPage Then 
 pgCount.Shapes.AddShape Type:=msoShapeOval, _ 
 Left:=50, Top:=50, Width:=50, Height:=50 
 ElseIf pgCount.PageType = pbPageRightPage Then 
 pgCount.Shapes.AddShape Type:=msoShapeOval, _ 
 Left:=512, Top:=50, Width:=50, Height:=50 
 End If 
 Next 
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.