Shape.ThreeD (PowerPoint)

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

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActivePresentation.Slides(1).Shapes(1).ThreeD