A continuación se muestran algunos de los diferentes tipos de graficas Línea 3:

    ActiveChart.ChartType = xlColumnClustered

    ActiveChart.ChartType = xlBarClustered

    ActiveChart.ChartType = xlLineMarkers

    ActiveChart.ChartType = xlPie

    ActiveChart.ChartType = xlXYScatter

    ActiveChart.ChartType = xlAreaStacked

    ActiveChart.ChartType = xlDoughnut

    ActiveChart.ChartType = xlRadarMarkers

    ActiveChart.ChartType = xlCylinderColClustered

    ActiveChart.ChartType = xlConeColClustered

    ActiveChart.ChartType = xlPyramidColClustered

Si tu agregas al final del código principal alguna línea del tipo de grafico que te gusto, ese se activara, por ejemplo:

Sub Macro1()

Range("A5:B10").Select

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Hoja1"

ActiveChart.ChartType = xlPyramidColClustered.

End Sub

Este código se puede programar en un botón o cualquier otro control de Visual Basic.

A continuación se muestra como se acomodan los datos Línea 4:

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _

        xlRows

En esta línea se muestra la grafica por Renglón

ActiveChart.SetSourceData Source:=Sheets("Hoja1").Range("A5:B10"), PlotBy:= _

        xlColumns

En esta línea se muestra la grafica por Columna