Propriété TextRange.BoundTop (Publisher)

Renvoie un single indiquant la distance, en points, entre le bord supérieur de la page supérieure et le bord supérieur du cadre englobant pour la plage de texte spécifiée. En lecture seule.

Syntaxe

expression. BoundTop

Expression Variable qui représente un objet TextRange .

Valeur renvoyée

Unique

Exemple

L’exemple suivant affiche la position, la largeur et la hauteur de la zone englobant le texte dans la première forme de la composition active.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.