Shape.Duplicate 方法 (PowerPoint)

创建指定的 Shape 对象的一个副本,将新形状添加到 形状 集合中,然后返回新的 绘图 对象。 复制的对象放在 Shapes 集合的末尾。

语法

表达式重复

表达 一个代表 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

另请参阅

形状对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。