Shape.Duplicate method (Publisher)
Creates a duplicate of the specified Shape or ShapeRange object, adds the new shape or range of shapes to the Shapes collection immediately after the shape or range of shapes specified originally, and then returns the new Shape or ShapeRange object.
expression.Duplicate
expression A variable that represents a Shape object.
Shape
This example adds a new, blank page at the end of the active publication, adds a diamond shape to the new page, duplicates the diamond, and then sets properties for the duplicate. The first diamond will have the default fill color for the active color scheme; the second diamond will be offset from the first one and will have the first accent color for the active color scheme.
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
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.