| Name | Type | Description |
|---|---|---|
| OffsetX |
Double
|
Specifies the horizontal distance to offset the duplicated shape. |
| OffsetY |
Double
|
Specifies the vertical distance to offset the duplicated shape. |
Sub Test() Dim s1 As Shape, s2 As Shape Set s1 = ActiveLayer.CreateEllipse(2, 7, 4, 5) Set s2 = s1.Duplicate(3, -5) s1.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 s2.Fill.UniformColor.CMYKAssign 0, 100, 100, 0 s2.CreateBlend s1 End Sub