Top Property
Top Property
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.
Top property as it applies to the Application, DocumentWindow, Shape, ShapeRange, and SlideShowWindow objects.
Application, DocumentWindow and SlideShowWindow objects: Returns or sets a Single that represents the distance in points from the top edge of the document, application, and slide show window to the top edge of the application window's client area. Setting this property to a very large positive or negative value may position the window completely off the desktop. Read/write.
Shape object: Returns or sets a Single that represents the distance from the top edge of the shape's bounding box to the top edge of the document. Read/write.
ShapeRange object: Returns or sets a Single that represents the distance from the top edge of the topmost shape in the shape range to the top edge of the document. Read/write.
expression.Top
expression Required. An expression that returns one of the above objects.
Top property as it applies to the Comment object.
Comment object: Returns a Single that represents the distance in points from the left edge of the comment to the left edge of the slide. Read-only.
expression.Top
expression Required. An expression that returns a Comment object.
Example
As it applies to the Application, DocumentWindow, Shape, ShapeRange, and SlideShowWindow objects.
This example arranges windows one and two horizontally; in other words, each window occupies half the available vertical space and all the available horizontal space in the application window's client area. For this example to work, there must be only two document windows open.
Windows.Arrange ppArrangeTiled
sngHeight = Windows(1).Height ' available height
sngWidth = Windows(1).Width + Windows(2).Width ' available width
With Windows(1)
.Width = sngWidth
.Height = sngHeight / 2
.Left = 0
End With
With Windows(2)
.Width = sngWidth
.Height = sngHeight / 2
.Top = sngHeight / 2
.Left = 0
End With