Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Creating Charts

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