Edit

Shapes.Add3DModel method (Excel)

  • Article

Creates a 3D model from an existing file. Returns a Shape object that represents the new 3D model.

Syntax

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

expression A variable that represents a Shapes object.

Parameters

Name Required/Optional Data type Description
FileName Required String The file from which the 3D model is to be created.
LinkToFile Optional Variant Determines whether the 3D model will be linked to the file from which it was created.
SaveWithDocument Optional Variant Determines whether the linked 3D model will be saved with the document into which it is inserted.
Left Optional Variant The position (in points) of the upper-left corner of the 3D model relative to the upper-left corner of the document.
Top Optional Variant The position (in points) of the upper-left corner of the 3D model relative to the top of the document.
Width Optional Variant The width of the 3D model, in points (enter -1 to auto-calculate a width based on the 3D model dimensions).
Height Optional Variant The height of the 3D model, in points (enter -1 to auto-calculate a height based on the 3D model dimensions).

Return value

Shape

Remarks

The value of the LinkToFile parameter can be one of these MsoTriState constants.

Constant Description
msoCTrue Not supported.
msoFalse To make the 3D model an independent copy of the file.
msoTriStateMixed Not supported.
msoTriStateToggle Not supported.
msoTrue To link the 3D model to the file from which it was created.

The value of the SaveWithDocument parameter can be one of these MsoTriState constants.

Constant Description
msoCTrue Not supported.
msoFalse To store only the link information in the document.
msoTriStateMixed Not supported.
msoTriStateToggle Not supported.
msoTrue To save the linked 3D model with the document into which it is inserted. This argument must be msoTrue if LinkToFile is msoFalse.

Example

This example adds a 3D model created from the file sphere.glb to mySheet. The inserted 3D model is embedded in the active document.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.