Question

全部显示

在方法应用于Shape 和ShapeRange 对象时复制方法。

创建指定的Shape 或ShapeRange 对象的副本，在最初指定了形状或形状范围之后立即向Shapes 集合中添加新的形状或形状范围，然后返回新的Shape 或ShapeRange 对象。

expression.Duplicate

expression必选。该表达式返回上述对象之一。

在方法应用于Slide 和SlideRange 对象时复制方法。

创建指定的Slide 或SlideRange 对象的副本，在最初指定了幻灯片或幻灯片范围之后立即向Slides 集合中添加新的幻灯片或幻灯片范围，然后返回代表一个副本幻灯片或多个副本幻灯片的Slide 或SlideRange 对象。

expression.Duplicate

expression必选。该表达式返回上述对象之一。

示例

当方法应用于Shape 和ShapeRange 对象时。

本示例在活动演示文稿的末尾添加一张新的空白幻灯片，在新幻灯片中添加一个钻石形状，复制该钻石形状，然后设置该副本的属性。第一个钻石形状将具有当前配色方案的默认填充色，第二个钻石形状将偏离第一个形状并具有默认的阴影色。

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

当方法应用于Slide 和SlideRange 对象时

本示例创建活动演示文稿中第一张幻灯片的一个副本，然后设置新幻灯片的背景阴影和标题文本。新幻灯片将作为演示文稿的第二张幻灯片。

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