CanvasShapes.AddCallout (Word)

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

Vous pouvez insérer un nombre plus important de légendes, telles que les bulles de pensées, grâce à l'aide de la méthode AddShape.

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


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, exprimée en points, du bord supérieur de la zone de délimitation de la légende.

Width (Single) - Largeur, exprimée 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.