Excel VisualBasic Script

Common Excel Chart Types         
Chart      VBA Constant (ChartType property of Chart object)         
Column     xlColumnClustered, xlColumnStacked, xlColumnStacked100         
Bar        xlBarClustered, xlBarStacked, xlBarStacked100         
Line       xlLine, xlLineMarkersStacked, xlLineStacked         
Pie        xlPie, xlPieOfPie         
Scatter    xlXYScatter, xlXYScatterLines       
Public Sub AddChartSheet()
    Dim dataRange As Range
    Set dataRange = ActiveWindow.Selection
    Charts.Add   'Create a chart sheet
    With ActiveChart    'Set chart properties
        .ChartType = xlColumnClustered
        .HasLegend = True
'        .Legend.Position = xlRight
        .Axes(xlCategory).MinorTickMark = xlOutside
        .Axes(xlValue).MinorTickMark = xlOutside
        .Axes(xlValue).MaximumScale = _
                    Application.WorksheetFunction.RoundUp( _
                    Application.WorksheetFunction.Max(dataRange), -1)
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Characters.Text = "X-axis Labels"
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Characters.Text = "Y-axis"
        .SeriesCollection(1).name = "Sample Data"
        .SeriesCollection(1).Values = dataRange
    End With
End Sub