Método ShapeRange.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 ShapeRange .

Valor devuelto

ShapeRange

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.