Private Sub Command1_Click()
' Set chart type to 2d bar
Form1.MSChart1.chartType = VtChChartType2dBar

' Use manual scale to display y axis (value axis)
With Form1.MSChart1.Plot.Axis(VtChAxisIdY).ValueScale
.Auto = False
.Minimum = -100
.Maximum = 100
End With
End Sub