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.