Método Page.Duplicate (Publisher)

Cria uma duplicata do objeto Page especificado e retorna o novo objeto Page.

Sintaxe

expressão. Duplicar

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

Valor de retorno

Page

Exemplo

O exemplo a seguir duplica a primeira página da publicação e define propriedades para a duplicata. Em seguida, uma forma é adicionada à nova página e são definidas propriedades para essa forma.

Dim objPage As Page 
Set objPage = ActiveDocument.Pages(1).Duplicate 
With objPage 
 .Background.Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
 .Shapes.AddShape msoShapeRectangle, 150, 250, 310, 275 
 With .Shapes(1) 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent3 
 End With 
End With 

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.