Shape.Duplicate method (PowerPoint)

Creates a duplicate of the specified Shape object, adds the new shape to the Shapes collection, and then returns a new ShapeRange object. The duplicated objects are placed at the end of the Shapes collection.

Syntax

expression.Duplicate

expression A variable that represents a Shape object.

Return value

ShapeRange

Example

This example adds a new, blank slide at the end of the active presentation, adds a diamond shape to the new slide, 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 default shadow color.

Set mySlides = ActivePresentation.Slides

Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)

Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)

With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With

See also

Shape Object

Support and feedback

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.