CanvasShapes.AddPicture-Methode (Word)

Artikel
04/07/2023

Fügt ein Bild zu einem Zeichenbereich hinzu. Gibt ein Shape-Objekt zurück, welches das Bild darstellt, und fügt es zur CanvasShapes-Auflistung hinzu.

Syntax

Ausdruck. AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )

Ausdruck: Erforderlich. Eine Variable, die ein CanvasShapes-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.

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

Siehe auch

CanvasShapes-Auflistungsobjekt

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.

Freigeben über