VBA在Excel中的应用（三）

'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