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
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.