Duplicate 方法

创建指定的 Shape 或 ShapeRange 对象的副本，以标准的偏移从原图形将新的图形区域添至 Shapes 集合，然后返回新的 Shape 对象。

expression   必需。该表达式返回一个 Shape 或 ShapeRange 对象。

示例

本示例创建活动文档第一个图形的副本，然后改变新图形的填充格式。

Set newShape = ActiveDocument.Shapes(1).Duplicate
With newShape
    .Fill.PresetGradient msoGradientVertical, 1, msoGradientGold
End With