Left Property
Left property as it applies to the Shape and ShapeRange objects.
Returns or sets a Single that represents the horizontal position, measured in points, of the specified shape or shape range. Can also be any valid WdShapePosition constant. Read/write.
| WdShapePosition can be one of these WdShapePosition constants. |
| WdShapeBottom |
| WdShapeCenter |
| WdShapeInside |
| WdShapeLeft |
| WdShapeOutside |
| WdShapeRight |
| WdShapeTop |
expression.Left
expression Required. An expression that returns one of the above objects.
Remarks
The position of a shape is measured from the upper-left corner of the shape's bounding box to the shape's anchor. The RelativeHorizontalPosition property controls whether the anchor is positioned alongside a character, column, margin, or the edge of the page.
For a ShapeRange object that contains more than one shape, the Left property sets the horizontal position of each shape.
Left property as it applies to the Application, Task, and Window objects.
Returns or sets a Long that represents the horizontal position of the active document (for the Application object) or the specified task or window, measured in points. Read/write.
expression.Left
expression Required. An expression that returns one of the above objects.
Example
As it applies to the Shape object.
This example sets the horizontal position of the first shape in the active document to 1 inch from the left edge of the page.
With ActiveDocument.Shapes(1)
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
.Left = InchesToPoints(1)
End WithThis example sets the horizontal position of the first and second shapes in the active document to 1 inch from the left edge of the column.
With ActiveDocument.Shapes.Range(Array(1, 2))
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
.Left = InchesToPoints(1)
End WithAs it applies to the Window object.
This example sets the horizontal position of the active window to 100 points.
With ActiveDocument.ActiveWindow
.WindowState = wdWindowStateNormal
.Left = 100
.Top = 0
End With