Objeto Pages (Publisher)
Representa todas as páginas em uma publicação. A coleção Pages contém todos os de página objetos em uma publicação.
Use a Adicionar método para adicionar uma nova página a uma publicação.
O exemplo a seguir adiciona uma nova página e uma forma à publicação ativa.
Sub AddPageAndShape()
With ActiveDocument.Pages.Add(Count:=1, After:=1)
With .Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=72, Top:=72, Width:=50, Height:=50)
.Fill.ForeColor.RGB = RGB(Red:=128, Green:=50, Blue:=255)
.Line.ForeColor.RGB = RGB(Red:=75, Green:=50, Blue:=255)
End With
End With
End Sub
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.