Shapes.Add3DModel (PowerPoint)

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

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

Dim strFileName As String: strFileName = 
Dim shpAdd3DModel As Shape
Set shpAdd3DModel = ActiveWindow.Selection.SlideRange(1).Shapes.Add3DModel(FileName:=strFileName, LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, Left:=, Top:=)

Arguments

The following arguments are required:

FileName (String) - The file from which the 3D model object is to be created.

LinkToFile (Office.MsoTriState) - Determines whether the 3D model will be linked to the file from which it was created.

SaveWithDocument (Office.MsoTriState) - Determines whether the linked 3D model will be saved with the document into which it is inserted. This argument must be msoTrue if LinkToFile is msoFalse.

Left (Single) - The position, measured in points, of the left edge of the 3D model relative to the left edge of the slide.

Top (Single) - The position, measured in points, of the top edge of the 3D model relative to the top edge of the slide.

Optional arguments

The following arguments are optional

Width (Single) - The width of the 3D model, measured in points (enter -1 to auto-calculate a width based on the 3D model dimensions).

Height (Single) - The height of the 3D model, measured in points (enter -1 to auto-calculate a height based on the 3D model dimensions).