Shapes.AddPicture-Methode (PowerPoint)
Erstellt ein Bild aus einer vorhandenen Datei. Gibt ein Shape-Objekt zurück, das das neue Bild darstellt.
Syntax
Ausdruck. AddPicture
( _FileName_
, _LinkToFile_
, _SaveWithDocument_
, _Left_
, _Top_
, _Width_
, _Height_
)
expression Eine Variable, die ein Shapes-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
FileName | Erforderlich | String | Die Datei, aus der das OLE-Objekt erstellt werden soll. |
LinkToFile | Erforderlich | MsoTriState | Bestimmt, ob das Bild mit der Datei verknüpft wird, aus der es erstellt wurde. |
SaveWithDocument | Erforderlich | MsoTriState | Bestimmt, ob das verknüpfte Bild mit dem Dokument gespeichert wird, in das es eingefügt wurde. Dieses Argument muss msoTrue sein, wenn LinkToFile msoFalse ist. |
Left | Erforderlich | Single | Die in Punkten gemessene Position des linken Bildrands relativ zum linken Folienrand. |
Top | Erforderlich | Single | Die in Punkten gemessene Position des oberen Bildrands relativ zum oberen Folienrand. |
Width | Optional | Single | The width of the picture, measured in points. |
Height | Optional | Single | Die in Punkten gemessene Höhe des Bilds. |
Rückgabewert
Form
Beispiel
This example adds a picture created from the file Music.bmp to myDocument. The inserted picture is linked to the file from which it was created and is saved with myDocument.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddPicture FileName:="c:\microsoft office\" & _
"clipart\music.bmp", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=100, Top:=100, Width:=70, Height:=70
Siehe auch
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für