ShapeRange.Model3D (Word)

Returns a Model3DFormat object that contains Model3D properties.

Dim sre As ShapeRange: Set sre =  
Dim mdfModel3D As Model3DFormat
Set mdfModel3D = sre.Model3D