通过

Shape.Duplicate Method

  • 项目
Word Developer Reference

Creates a duplicate of the specified Shape object, adds the new shape to the Shapes collection at a standard offset from the original shapes, and then returns the new Shape object.

Syntax

expression.Duplicate

expression   Required. A variable that represents a Shape object.

Example

This example creates a duplicate of shape one on the active document and then changes the fill for the new shape.

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

See Also