Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. To apply one of the 3-D rotation presets to a chart element
Sub Assign3DPreset()
    Dim myChart As Chart
    Dim shp As Shape
    Set myChart = ActiveChart
    Set shp = myChart.Shapes(1)
    shp.ThreeD.SetPresetCamera msoCameraIsometricLeftDown
End Sub