To apply one of the 3-D rotation presets to a chart element: use the SetPresetCamera method
Sub Assign3DPreset() Dim myChart As Chart Dim shp As Shape
Set myChart = ActiveChart
Set shp = myChart.Shapes(1)
shp.ThreeD.SetPresetCamera msoCameraIsometricLeftDown End Sub