| Name | Type | Description |
|---|---|---|
| PositionX |
Double
|
|
| PositionY |
Double
|
Sub Test() Dim s As Shape Dim x As Double, y As Double For Each s In ActivePage.Shapes s.SetPosition 0, 0 Next s End Sub