Shapes.Add3DModel-Methode (Word)

Fügt ein 3D-Modell zu einem Zeichenbereich hinzu. Gibt ein Shape-Objektzurück, welches das 3D-Modell darstellt, und fügt es zu der CanvasShapes-Sammlung hinzu.

Syntax

expression.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression: Erforderlich. Eine Variable, die eine „Shapes“-Sammlung darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FileName	Erforderlich	String	Der Pfad und der Dateiname des 3D-Modells.
LinkToFile	Optional	Variant	TRUE verknüpft das 3D-Modell mit der Datei, aus der es erstellt wurde. FALSE, um das 3D-Modell in eine unabhängige Kopie der Datei umzuwandeln. Der Standardwert ist False.
SaveWithDocument	Optional	Variant	TRUE zum Speichern des verknüpften 3D-Modells mit dem Dokument. Der Standardwert ist False.
Left	Optional	Variant	Die Position (in Punkt) des linken Rands des neuen 3D-Modells, relativ zum Zeichenbereich.
Top	Optional	Variant	Die Position (in Punkt) des oberen Rands des neuen 3D-Modells, relativ zum Zeichenbereich.
Width	Optional	Variant	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	Variant	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 einem neu erstellten Zeichenbereich im aktiven Dokument ein 3D-Modell eingebettet.

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 3D model to the drawing canvas 
 shpCanvas.CanvasItems.Add3DModel(FileName:="c:\my 3D models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70)
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.