Propriété Shape.Callout (Publisher)

Cette propriété renvoie un objet CalloutFormat qui représente la mise en forme d'un trait de légende.

Syntaxe

expression. Légende

expression Une variable qui représente uneForme d’objet.

Exemple

Cet exemple ajoute un ovale à la composition active et une légende qui est pointée vers cet ovale. Le texte de la légende n'a pas de bordure, mais une barre d'accentuation verticale qui sépare le texte du trait de la légende.

Sub NewShapeItem() 
 
 Dim shpNew As Shapes 
 
 Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes 
 With shpNew 
 .AddShape Type:=msoShapeOval, Left:=180, _ 
 Top:=200, Width:=280, Height:=130 
 With .AddCallout(Type:=msoCalloutTwo, Left:=420, _ 
 Top:=170, Width:=170, Height:=40) 
 .TextFrame.TextRange = "Big Oval" 
 With .Callout 
 .Accent = msoTrue 
 .Border = msoFalse 
 End With 
 End With 
 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.