Método Shape.Duplicate (Publisher)

Crea un duplicado del objeto Shape o ShapeRange especificado, agrega la nueva forma o el rango de formas a la colección Shapes inmediatamente después de la forma o el intervalo de formas especificado originalmente y, a continuación, devuelve el nuevo objeto Shape o ShapeRange .

Sintaxis

expresión. Duplicado

expresión Variable que representa un objeto Shape.

Valor devuelto

Forma

Ejemplo

En este ejemplo se agrega un página nueva en blanco al final de la publicación activa, se agrega una forma de un rombo a la página nueva, se duplica el rombo y, a continuación, se establecen las propiedades del duplicado. El color de relleno del primer rombo será el predeterminado para la combinación de colores activa; el color del segundo rombo se obtendrá a partir del primero y tendrá el primer color de énfasis de la combinación de colores activa.

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.