| Name | Type | Description |
|---|---|---|
| PositionX |
Double
|
|
| PositionY |
Double
|
Sub Test() Dim x As Double, y As Double Dim s As Shape ActiveDocument.ReferencePoint = cdrCenter For Each s In ActivePage.Shapes s.GetPosition x, y ActiveLayer.CreateEllipse2 x, y, 0.03 Next s End Sub