Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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