ShapeRange.Duplicate Method
Creates a duplicate of the specified ShapeRange object, adds the range of shapes to the Shapes collection, and then returns the new ShapeRange object. The duplicated objects are placed at the end of the Shapes collection.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Function Duplicate As ShapeRange
'Usage
Dim instance As ShapeRange
Dim returnValue As ShapeRange
returnValue = instance.Duplicate()
ShapeRange Duplicate()
Return Value
Type: Microsoft.Office.Interop.PowerPoint.ShapeRange
ShapeRange
Examples
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