Shapes.AddPicture (Word)

Fügt ein Bild zu einem Zeichenbereich hinzu.

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

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

Ein benanntes Argument

FileName (String) - Der Pfad und der Dateiname des Bilds.

Optional arguments

Die folgenden Argumente sind optional

LinkToFile (Boolean) - True, wenn das Bild mit der Datei verknüpft werden soll, aus der es erstellt wurde.

SaveWithDocument (Boolean) - True, wenn das verknüpfte Bild mit dem Dokument gespeichert werden soll.

Left (Long) - Die Position (in Punkt) des linken Rands des neuen Bilds, relativ zum Zeichenbereich.

Top (Long) - Die Position (in Punkt) des oberen Rands des neuen Bilds, relativ zum Zeichenbereich.

Width (Long) - Die Breite des Bilds in Punkt.

Height (Long) - Die Höhe des Bilds in Punkt.

Anchor - Range