Propriété WrapFormat.DistanceRight (Publisher)

Lorsque la propriété Type de l’objet WrapFormat est définie sur pbWrapTypeSquare, renvoie ou définit un Variant qui représente la distance (en points) entre le texte du document et le bord droit de la forme spécifiée. Lecture-écriture.

Syntaxe

expression. DistanceRight

expression Variable qui représente un objet WrapFormat .

Exemple

Cet exemple ajoute une forme ovale au document actif et permet de faire en sorte que le texte vienne automatiquement se placer de part et d'autre des bordures gauche et droite du carré qui entoure la forme ovale. L'exemple définit une marge de 0,1 pouce entre le texte du document et les bordures supérieure, inférieure, gauche et droite du carré.

Sub AddNewShape() 
 Dim shpOval As Shape 
 
 Set shpOval = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeOval, Left:=36, _ 
 Top:=36, Width:=100, Height:=35) 
 With shpOval.TextWrap 
 .Type = pbWrapTypeSquare 
 .Side = pbWrapSideBoth 
 .DistanceAuto = msoFalse 
 .DistanceTop = InchesToPoints(0.1) 
 .DistanceBottom = InchesToPoints(0.1) 
 .DistanceLeft = InchesToPoints(0.1) 
 .DistanceRight = InchesToPoints(0.1) 
 End With 
End Sub

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.