Adds a 3D model to a drawing canvas. Returns a Shape object that represents the 3D model and adds it to the CanvasShapes collection.
Add3DModel (FileName, LinkToFile, SaveWithDocument, Range)
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)
The following argument is required
(String) - The path and file name of the 3D model.
The following arguments are optional
(Boolean) - True to link the 3D model to the file from which it was created. False to make the 3D model an independent copy of the file. The default value is False.
(Boolean) - True to save the linked 3D model with the document. The default value is False.