Shapes.AddCallout (Word)

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

Vous pouvez insérer un plus grand nombre de légendes, telles que des bulles et des nuages, à l’aide de la méthode AddShape .

AddCallout (Type, Left, Top, Width, Height, Anchor)

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

Arguments

Les arguments nommés :

Type (Office.MsoCalloutType) - Type de légende.

Left (Single) - Position, exprimée en points, du bord gauche de la zone de délimitation de la légende.

Top (Single) - Position (en points) du bord supérieur de la zone de délimitation de la légende.

Width (Single) - Largeur (en points) de la zone de délimitation de la légende.

Height (Single) - Hauteur (en points) de la zone de délimitation de la légende.

Optional arguments

Les arguments suivants sont facultatifs

Anchor - Range