InlineShapes.Add3DModel (Word)
Fügt ein 3D-Modell zu einem Zeichenbereich hinzu. Gibt ein Shape-Objekt zurück, welches das 3D-Modell darstellt, und fügt es zu der CanvasShapes-Sammlung hinzu.
Add3DModel (FileName, LinkToFile, SaveWithDocument, Range)
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
Arguments
Ein benanntes Argument
FileName (String) - Der Pfad und der Dateiname des 3D-Modells.
Optional arguments
Die folgenden Argumente sind optional
LinkToFile (Boolean) - 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 (Boolean) - TRUE zum Speichern des verknüpften 3D-Modells mit dem Dokument. Der Standardwert ist False.
Range