Propriété WrapFormat.DistanceBottom (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 inférieur de la forme spécifiée. Lecture-écriture.
Syntaxe
expression. DistanceBottom
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour