ShapeRange.Model3D (Excel)

Returns a Model3DFormat object that contains Model3D properties.

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveChart.OLEObjects.ShapeRange.Model3D