Partager via

Propriété TextRange.BoundLeft (Publisher)

  • Article

Renvoie une valeur single indiquant la distance, en points, entre le bord gauche de la page la plus à gauche et le bord gauche du cadre englobant pour la plage de texte spécifiée. En lecture seule.

Syntaxe

expression. BoundLeft

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.