Objeto MasterPages (Publisher)
Representa uma página mestra para uma publicação após o qual serão criadas todas as páginas na publicação. Objeto MasterPages é uma coleção de página objetos.
Comentários
Use a propriedade Document.MasterPages para retornar um objeto MasterPages .
Use a propriedade Page.Shapes para trabalhar com AutoShapes e caixas de texto na página mestra.
Exemplo
O exemplo a seguir adiciona dois guias de régua à página mestra para que cada página na publicação ativa é dividida em trimestres.
Sub ChangeMasterPage()
Dim intWidth As Integer
Dim intHeight As Integer
With ActiveDocument
intWidth = .PageSetup.PageWidth
intWidth = intWidth / 2
intHeight = .PageSetup.PageHeight
intHeight = intHeight / 2
With .MasterPages(1).RulerGuides
.Add Position:=intWidth, _
Type:=pbRulerGuideTypeVertical
.Add Position:=intHeight, _
Type:=pbRulerGuideTypeHorizontal
End With
End With
End Sub
Este exemplo adiciona uma pequena forma de coração vermelho ao canto superior esquerdo da página mestra que será exibida em cada página na publicação ativa.
Sub AddShapeToMasterPage()
ActiveDocument.MasterPages(1).Shapes.AddShape(Type:=msoShapeHeart, _
Left:=36, Top:=36, Width:=36, Height:=36).Fill _
.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End Sub
Métodos
Propriedades
Confira também
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.