Shapes.Add3DModel-Methode (PowerPoint)

  • Artikel

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.