ShapeRange.ThreeD (Word)

Returns a ThreeDFormat object that contains 3D formatting properties for the specified range of shapes.

Dim sre As ShapeRange: Set sre =  
Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = sre.ThreeD