TextRange. BoundTop-Eigenschaft (Publisher)TextRange.BoundTop property (Publisher)

Gibt einen Single -Wert zurück, der den Abstand zwischen dem oberen Rand der obersten Seite und dem oberen Rand des Begrenzungsfelds für den angegebenen Textbereich in Punktangibt.Returns a Single indicating the distance, in points, from the top edge of the topmost page to the top edge of the bounding box for the specified text range. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. BoundTopexpression.BoundTop

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.expression A variable that represents a TextRange object.

RückgabewertReturn value

SingleSingle

BeispielExample

Das folgende Beispiel zeigt die Position, Breite und Höhe des Rahmenfelds an, das den Text in der ersten Form auf Seite 1 der aktiven Publikation umgibt.The following example displays the position, width, and height of the bounding box surrounding the text in the first shape on page one of the active publication.

Dim rngText As TextRange 
Dim strMessage As String 
 
Set rngText = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange 
 
With rngText 
 strMessage = "Text frame information" & vbCrLf _ 
 & " Distance from left edge of page: " _ 
 & .BoundLeft & " points" & vbCrLf _ 
 & " Distance from top edge of page: " _ 
 & .BoundTop & " points" & vbCrLf _ 
 & " Width: " & .BoundWidth & " points" & vbCrLf _ 
 & " Height: " & .BoundHeight & " points" 
End With 
 
MsgBox strMessage

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.