Partager via


Shapes.AddCallout, méthode (Word)

Cette méthode ajoute une légende sans bordure à une zone de dessin.

Syntaxe

expression. AddCallout (Type, Left, Top, Width, Height)

expression Obligatoire. Variable qui représente un objet Shapes .

Parameters

Nom Requis/Facultatif Type de données Description
Type Obligatoire MsoCalloutType Type de légende.
Left Obligatoire Unique Position, en points, du bord gauche du cadre englobant de la légende.
Top Obligatoire Simple Position (en points) du bord supérieur de la zone de délimitation de la légende.
Width Obligatoire Simple Largeur (en points) de la zone de délimitation de la légende.
Height Obligatoire Simple Hauteur (en points) de la zone de délimitation de la légende.

Valeur renvoyée

Shape

Remarques

Vous pouvez insérer une plus grande variété de légendes, telles que des bulles et des nuages, à l’aide de la méthode AddShape .

Exemple

Cet exemple montre comment ajouter une légende à une nouvelle zone de dessin.

Sub NewCanvasCallout() 
 Dim shpCanvas As Shape 
 
 'Add drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas _ 
 (Left:=150, Top:=150, Width:=200, Height:=300) 
 
 'Add callout to the drawing canvas 
 shpCanvas.CanvasItems.AddCallout _ 
 Type:=msoCalloutTwo, Left:=100, _ 
 Top:=40, Width:=150, Height:=75 
End Sub

Voir aussi

Shapes, Collection d'objets

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.