在方法应用于 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
本示例创建活动演示文稿中第一张幻灯片的一个副本,然后设置新幻灯片的背景阴影和标题文本。新幻灯片将作为演示文稿的第二张幻灯片。
Set newSlide = ActivePresentation.Slides(1).Duplicate
With newSlide
.Background.Fill.PresetGradient msoGradientVertical, _
1, msoGradientGold
.Shapes.Title.TextFrame.TextRange _
.Text = "Second Quarter Earnings"
End With