This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns the distance of the shape’s or shape range's top edge from the top edge of the leftmost page in the current view as a Single in the specified units.
expression Required. An expression that returns one of the objects in the Applies To list.
|PbUnitType can be one of these PbUnitType constants.|
Use the GetLeft method to return the distance of a shape's or shape range's left edge from the left edge of the leftmost page in the current view.
The following example displays the distances from the left and top edges of the leftmost page to the left and top edges of shape range consisting of all the shapes on the first page. The distances are expressed in inches (to the nearest hundredth).
With ActiveDocument.Pages(1).Shapes.Range MsgBox "Distance from left: " _ & Format(.GetLeft(Unit:=pbUnitInch), "0.00") _ & " in" & vbCr _ & "Distance from top: " _ & Format(.GetTop(Unit:=pbUnitInch), "0.00") _ & " in" End With