Freigeben über

Shapes.AddPicture-Methode (Word)

Fügt einem Dokument ein Bild hinzu. Gibt ein Shape-Objekt zurück, das das Bild darstellt, und fügt es der Shapes-Auflistung hinzu.

Syntax

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

Ausdruck: Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
FileName Erforderlich String Der Pfad und der Dateiname des Bilds.
LinkToFile Optional Variant True, wenn das Bild mit der Datei verknüpft werden soll, aus der es erstellt wurde. False, wenn das Bild als separate Kopie der Datei erstellt werden soll. Der Standardwert ist False.
SaveWithDocument Optional Variant True, wenn das verknüpfte Bild mit dem Dokument gespeichert werden soll. Der Standardwert ist False.
Left Optional Variant Die Position (in Punkt) des linken Rands des neuen Bilds, relativ zum Zeichenbereich.
Top Optional Variant Die Position (in Punkt) des oberen Rands des neuen Bilds, relativ zum Zeichenbereich.
Width Optional Variant Die Breite des Bilds in Punkt.
Height Optional Variant Die Höhe des Bilds in Punkt.
Anchor Optional Range Ein Bereich im Dokument.

Rückgabewert

Form

Beispiel

In diesem Beispiel wird einem neu erstellten Zeichenbereich im aktiven Dokument ein Bild hinzugefügt.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Last updated on