Duplicate Method

Microsoft PowerPoint Visual Basic

Show All

Duplicate Method

       

Duplicate method as it applies to the Shape and ShapeRange objects.

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   Required. An expression that returns one of the above objects.

 

Duplicate method as it applies to the Slide and SlideRange objects.

Creates a duplicate of the specified Slide or SlideRange object, adds the new slide or range of slides to the Slides collection immediately after the slide or slide range specified originally, and then returns a Slide or SlideRange object that represents the duplicate slide or slides.

expression.Duplicate

expression   Required. An expression that returns one of the above objects.

Example

As it applies to the Shape and ShapeRange objects.

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

As it applies to the Slide and SlideRange objects.

This example creates a duplicate of slide one in the active presentation and then sets the background shading and the title text of the new slide. The new slide will be slide two in the presentation.

Set newSlide = ActivePresentation.Slides(1).Duplicate
With newSlide
    .Background.Fill.PresetGradient msoGradientVertical, _
        1, msoGradientGold
    .Shapes.Title.TextFrame.TextRange _
        .Text = "Second Quarter Earnings"
End With