Gráficas en excel

Escoges primero todo el rango de la info, y luego vas a la ayuda de crear gráficos, debería funcionar. O al menos de lo que entiendo de tus necesidades

Ups, creo que no me di a explicar, lo que yo tengo es una base de datos con 350 filas, en la primera columna tendo el nombre de la localidad en las 6 siguientes columnas el tipo de localidad que es, lo que yo quiero es ver como hacer más fácil la elaboración de esas 350 gráficas, por que tengo que hacer una gráfica por cada localidad. Muchas gracias por contestar tan pronto mi pregunta

De lo que entiendo haces varias gráficas una por cada fila, y lo que quieres es que una macro haga las gráficas ese número de veces. Te recomiendo lo siguiente:
1) Activa la grabadora de macros
2) Haz manualmente una sola gráfica
3) Detén la grabadora de Macros
4) Pásame los códigos que grabo la macro
5) Yo te paso corregida la macro para que haga los mismo 350 veces, es decir en lugar de que tu hagas el trabajo manual 350 veces lo haga directamente excel, o mejor dicho el número de filas que tu indiques

Hola, espero aun me puedas ayudar, te mando la macro que hice para hacer el gráfico, mil gracias
 Sub Crea_gráfico()
'
' Crea_gráfico Macro
'
' Acceso directo: CTRL+a
'
    Range("A4:G4").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Hoja1'!$A$4:$G$4")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.ApplyLayout (3)
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Name = "=""Número de encuestas"""
    ActiveChart.SeriesCollection(1).Values = "='Hoja1'!$B$4:$G$4"
    ActiveChart.SeriesCollection(1).XValues = "='Hoja1'!$B$3:$G$3"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "10 de Abril"
    ActiveSheet.ChartObjects("2 Gráfico").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("2 Gráfico").Activate
    ActiveChart.Paste
    ActiveChart.ChartTitle.Text = "10 de Abril"
    ActiveSheet.ChartObjects("2 Gráfico").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects("2 Gráfico").Activate
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Graficas"
    Range("H6").Select
End Sub

Hmmmmmm tengo mis dudas sobre la macro que grabaste piesno que no es como me habías indicado al inicio, pero en fin prueba y me comentas cualquier error... Prueba con pocas repeticiones
Sub Crea_gráfico()
'
' Crea_gráfico Macro
'
' Acceso directo: CTRL+a
    a = InputBox("Indicar el número de Filas a Graficar", "Numero Filas")
    b = 3
    For i = 1 To a
    b = b + 1
    Range("A" & b & ":G" & b).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Hoja1'!" & "A" & b & ":G" & b)
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.ApplyLayout (3)
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).Name = "=""Número de encuestas"""
    ActiveChart.SeriesCollection(1).Values = "='Hoja1'!" & "B" & b & ":G" & b
    ActiveChart.SeriesCollection(1).XValues = "='Hoja1'!$B$3:$G$3"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "10 de Abril"
    ActiveSheet.ChartObjects(c & " Gráfico").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects(c & " Gráfico").Activate
    ActiveChart.Paste
    ActiveChart.ChartTitle.Text = "10 de Abril"
    ActiveSheet.ChartObjects(c & " Gráfico").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.ChartObjects(c & " Gráfico").Activate
    ActiveChart.Location Where:=xlLocationAsObject, Name:=c & "Graficas"
    Range("H6").Select
    Next i
End Sub

Hola, pues me mando un error en ensta parte, ActiveChart.SeriesCollection(1).Name = "="" Número de encuestas """
Mi base de datos es así
       A                        B       C        D      E       F       G 
1   Colonia                A/B     C+     C      D+     D      E
2   10 de Abril            1         5      2      0      0      0
3    15 de mayo         0         2       5     8      10   15 
4    Alamos                0         0       15     4     0      0
5    Azteca                 8        9       7        5     0     0
Así tengo mi base de datos, en la filas tengo las colonias, en las columnas el tipo de clase a la que pertenecen, son muchísimas colonias, pero para esto tengo que hacer una gráfica por colonia, pero con la macro que me mandaste me pone 2 o 3 colonias en una misma gráfica, me gustaría que a la hora de hacer la gráfica tuviera el nombre de la colonia, yo anteriormente hice una macro pero solo me hace la primera, y nada más. Muchas gracias por tomarte tu tiempo para leer mi pregunta.