Creates a Model3DFormat object from an existing file. Returns a Shape object that represents the new 3D model.
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:=)
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.
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).