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
Voir aussi
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