CanvasShapes.AddPicture (Word)

Ajoute une image à une zone de dessin.

AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)


Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=200, Height:=300) 
 
 'Add a graphic to the drawing canvas 
 shpCanvas.CanvasItems.AddPicture _ 
 FileName:="C:\Program Files\Microsoft Office\" & _ 
 "Office\Bitmaps\Styles\stone.bmp", _ 
 LinkToFile:=False, SaveWithDocument:=True 
End Sub

Arguments

Un argument nommé

FileName (String) - Chemin et nom de fichier de l'image.

Optional arguments

Les arguments suivants sont facultatifs

LinkToFile - Boolean

SaveWithDocument - Boolean

Left (Long) - Position, exprimée en points, du bord gauche de la nouvelle image par rapport au bord gauche de la zone de dessin.

Top (Long) - Position, exprimée en points, du bord supérieur de la nouvelle image par rapport au bord gauche de la zone de dessin.

Width (Long) - Largeur de l'image, en points.

Height (Long) - Hauteur de l'image, en points.