Shapes.Add3DModel-Methode (PowerPoint)

Erstellt Model3DFormat-Objekt aus einer vorhandenen Datei. Gibt ein Shape-Objekt zurück, das das neue 3D-Modell darstellt.

Syntax

expression.Add3DModel (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 3D-Modell Objekt erstellt werden soll.
LinkToFile	Erforderlich	MsoTriState	Bestimmt, ob das 3D-Modell mit der Datei verknüpft wird, aus der es erstellt wurde.
SaveWithDocument	Erforderlich	MsoTriState	Bestimmt, ob das verknüpfte 3D-Modell mit dem Dokument gespeichert wird, in das es eingefügt wird. Dieses Argument muss msoTrue sein, wenn LinkToFile msoFalse ist.
Left	Erforderlich	Single	Die in Punkten gemessene Position des linken Rands des 3D-Modells relativ zum linken Folienrand.
Top	Erforderlich	Single	Die in Punkten gemessene Position des oberen Rands des 3D-Modells relativ zum oberen Folienrand.
Width	Optional	Single	Die Breite des 3D-Modells in Punkt (geben Sie -1 zur automatischen Berechnung einer Breite basierend auf den Abmessungen des 3D-Modells an).
Height	Optional	Single	Die Höhe des 3D-Modells in Punkt (geben Sie -1 zur automatischen Berechnung einer Höhe basierend auf den Abmessungen des 3D-Modells an).

Rückgabewert

Form

Beispiel

In diesem Beispiel wird ein aus der Datei „Sphere.glb“ erstelltes 3D-Modell zu mySlide hinzugefügt. Das eingefügte 3D-Modell wird in das aktive Dokument eingebettet.

Set mySlide = Application.ActivePresentation.Slides(1) 
Set myShape = mySlide.Shapes.Add3DModel(FileName:="c:\my 3d models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70 )

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.