ShapeRange.ThreeD (Excel)

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

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveChart.OLEObjects.ShapeRange.ThreeD