Propriété ShapeRange.TextWrap (Publisher)
Renvoie un objet WrapFormat qui représente les propriétés d'habillage du texte autour d'une forme ou une plage de formes.
Syntaxe
expression. TextWrap
Expression Variable qui représente un objet ShapeRange .
Exemple
L’exemple suivant ajoute un ovale à la composition active et spécifie que le texte de la composition s’enroule autour des côtés gauche et droit du carré qui entoure l’ovale. Il y aura une marge de 0,1 pouce entre le texte de la composition du haut, bas, gauche et droite du carré.
Sub SetTextWrapFormatProperties()
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