Private Sub Command2_Click() Dim x MSChart1.chartType = VtChChartType2dBar MSChart1.RowCount = 50 MSChart1.ColumnCount = 1 For x = 1 To 50 MSChart1.Row = x MSChart1.RowLabel = x MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set 2, 0, 255 Next
End Sub