ShapeRange.Duplicate 方法 (Publisher)

创建指定 Shape 或 ShapeRange 对象的副本，将形状的新形状或形状区域添加到 形状 集合中，紧跟在最初指定的形状或形状区域之后，然后返回新的 Shape 或 ShapeRange 对象。

语法

表达式。重复

表达 一个代表 ShapeRange 对象的变量。

返回值

ShapeRange

示例

本示例将一个新的空白页面添加到活动出版物的末尾，将一个菱形添加到新页面，复制此菱形，再设置该副本的属性。 第一个菱形将使用活动配色方案的默认填充颜色，第二个菱形将偏离第一个菱形并使用活动配色方案的第一种辅色。

Dim pgTemp As Page 
Dim shpTemp As Shape 
 
Set pgTemp = ActiveDocument.Pages.Add(Count:=1, After:=1) 
Set shpTemp = pgTemp.Shapes _ 
 .AddShape(Type:=msoShapeDiamond, _ 
 Left:=10, Top:=10, Width:=250, Height:=350) 
 
With shpTemp.Duplicate 
 .Left = 150 
 .Fill.ForeColor.SchemeColor = pbSchemeColorAccent1 
End With

支持和反馈

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