Objet WrapFormat (Publisher)

Représente toutes les propriétés d'ajustement d'un texte autour d'une forme ou d'une plage de formes.

Remarques

Utilisez la propriété Shape.TextWrap pour renvoyer un objet WrapFormat .

Exemple

L'exemple suivant ajoute un ovale à la composition active et spécifie le texte habiller les 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

Propriétés

• Application
• DistanceAuto
• DistanceBottom
• DistanceLeft
• DistanceRight
• DistanceTop
• Parent
• Côté
• Type

Voir aussi

• Référence du modèle objet Publisher

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.