| Name | Type | Description |
|---|---|---|
| OffsetX |
Double
|
Specifies the horizontal distance to offset the cloned shape. |
| OffsetY |
Double
|
Specifies the vertical distance to offset the cloned shape. |
Sub Test() Dim rs As Shape, cs As Shape Set rs = ActiveLayer.CreateRectangle2(0, 0, 4, 2) rs.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 Set cs = rs.Clone(0, 3) cs.Fill.UniformColor.CMYKAssign 100, 0, 100, 0 End Sub