| Name | Type | Description |
|---|---|---|
| PositionX |
Double
|
|
| PositionY |
Double
|
Sub App() With ActiveShape.Curve.Subpaths(1) .SetPosition 4, 4 End With End Sub