创建指定的 ShapeRange 对象的一个副本，并添加新形状的区域标准偏移量处的 Shapes 集合从原始的形状，然后返回一个 Shape 对象。
语法
表达式。重复
expression 是必需的。 一个代表 ShapeRange 对象的变量。
示例
本示例创建活动文档第一个图形的副本，然后改变新图形的填充格式。
Set newShape = ActiveDocument.Shapes(1).Duplicate
With newShape
.Fill.PresetGradient msoGradientVertical, 1, msoGradientGold
End With
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。