Duplicate (方法)

复制对象，并返回对新复制对象的引用。

示例

/*本示例复制第一张工作表中新建的ShapeRange对象并设置填充格式的前景色。*/
function test() {
    let duplicate = Application.Worksheets.Item(1).Shapes.Range([1, 2]).Duplicate()
    duplicate.Fill.ForeColor.RGB = RGB(255, 0, 0)
}

/*本示例复制活动工作表的所有形状。*/
function test() {
    let shapes = ActiveSheet.Shapes
    shapes.SelectAll()
    Selection.ShapeRange.Duplicate()
}