Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ajoute une image à un document. Renvoie un objet Shape qui représente l’image et l’ajoute à la collection Shapes .
Syntaxe
expression. AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)
expression Obligatoire. Variable qui représente un objet Shapes .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| FileName | Obligatoire | Chaîne | Chemin et nom de fichier de l'image. |
| LienVersFichier | Facultatif | Variant | True pour lier l'image au fichier à partir duquel il a été créé. False pour transformer l'image une copie indépendante du fichier. La valeur par défaut est False. |
| EnregistrerAvecDocument | Facultatif | Variant | True pour enregistrer l'image liée avec le document. La valeur par défaut est False. |
| Left | Facultatif | Variant | Position, exprimée en points, du bord gauche de la nouvelle image par rapport au bord gauche de la zone de dessin. |
| Top | Facultatif | Variant | Position, exprimée en points, du bord supérieur de la nouvelle image par rapport au bord gauche de la zone de dessin. |
| Width | Facultatif | Variant | Largeur de l'image, en points. |
| Height | Facultatif | Variant | Hauteur de l'image, en points. |
| Anchor | Facultatif | Range | Plage dans le document. |
Valeur renvoyée
Shape
Exemple
Cet exemple montre comment ajouter une image à une zone de dessin récemment créée dans le document actif.
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
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.