TextRange.BoundTop-Eigenschaft (Publisher)

Gibt einen Single-Wert zurück, der den Abstand in Punkt vom oberen Rand der obersten Seite bis zum oberen Rand des Begrenzungsrahmens für den angegebenen Textbereich angibt. Schreibgeschützt.

Syntax

Ausdruck. BoundTop

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

Single

Beispiel

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.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.