Shape.ThreeD (Excel)

Returns a ThreeDFormat object that contains 3D-effect formatting properties for the specified shape.

Dim shp As Shape: Set shp = 
Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = shp.ThreeD