¿Cómo Generar Graficos con VB?

Esta rutina crea un grafico a partir de datos contenidos en
el rango A2:O???.
El grafico lo crea en la misma hoja donde estan los datos.
Tendras que adaptarla.



Private Sub HacerGrafico(Libro)

Set ExcelLibroGrafico = ExcelLibros.Open(Libro & ".xls")

For Each objHoja In ExcelLibroGrafico.Worksheets

Modelo = objHoja.Name
Sheets(Modelo).Select


ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
UltimaFilaHoja = ActiveCell.Row
Rango = "A2:O" & Trim$(Str(UltimaFilaHoja))

Sheets(Modelo).ChartObjects.Delete ' borro todos
los gráficos de la hoja
Set Grafico = Sheets(Modelo).ChartObjects.Add(250,
200, 600, 400)
Grafico.Chart.ChartWizard
Source:=Worksheets(Modelo).Range(Rango), _
Gallery:=xlLine, PlotBy:=xlColumns,
CategoryLabels:=1, SeriesLabels:=1
Sheets(Modelo).ChartObjects(1).Left = 10
Sheets(Modelo).ChartObjects(1).Top = 60 +
UltimaFilaHoja * 12
Grafico.Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Modelo
.SeriesCollection(1).Name = "=""Total"""
.SeriesCollection(2).Name = "=""parcial1"""
.SeriesCollection(3).Name = "=""Parcial2"""
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text = "titulo eje1"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue,
xlPrimary).AxisTitle.Characters.Text = "Titulo eje2"
End With

ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With

' selecciono la celda a1 para quitar
' el foco del gráfico
Sheets(Modelo).Range("A1").Select

' pongo las barras al comienzo
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

Next

ExcelLibroGrafico.Save
ExcelLibroGrafico.Close
Set ExcelLibroGrafico = Nothing

End Sub

Hola gente!

Partiendo de una informacion que tengo en una hoja excel

tal y como la que

muestro más abajo, tengo que generar un grafico con un formato
predeterminado. Lo necesito hacer con visual Basic porque

no me permiten

usar el asistente de graficos...

1. ¿Es posible realizar esto?
2. ¿Alguien me puede indicar alguna buena referencia

(tutorial,pagina

web...) para hacerlo?

CDG stock días
1 M 316,1672843 0,63 5 1,5
2 X 381,7227387 0,76 5 1,5
3 J 496,9607348 0,99 5 1,5
4 V 569,0973681 1,13 5 1,5
5 S 536,632396 1,06 5 1,5
6 D 535,0419321 1,06 5 1,5
7 L 508,8601637 1,01 5 1,5
8 M 474,9256758 0,94 5 1,5
9 X 486,8515871 0,97 5 1,5
10 J 496,4284435 0,99 5 1,5
11 V 505,8618522 1,00 5 1,5
12 S 452,7829984 0,90 5 1,5
13 D 466,1690632 0,92 5 1,5
14 L 349,8560036 0,69 5 1,5
15 M 272,0934315 0,54 5 1,5
16 X 192,3493295 0,38 5 1,5
17 J 93,16447753 0,18 5 1,5
18 V -55,59956411 -0,11 5 1,5
19 S -8,056936813 -0,02 5 1,5
20 D 97,49040798 0,19 5 1,5
21 L 128,6683328 0,26 5 1,5
22 M 152,8030547 0,30 5 1,5
23 X 171,9585066 0,34 5 1,5
24 J 185,6355204 0,37 5 1,5
25 V 179,0818725 0,36 5 1,5
26 S 231,4093803 0,46 5 1,5
27 D 355,9951782 0,71 5 1,5
28 L 355,9031751 0,71 5 1,5
29 M 340,212615 0,68 5 1,5
30 X 306,2801929 0,61 5 1,5


días stock
max 1,1 569,0973681
min -0,1 -55,59956411


Me urge bastante... tengo la entrega muuuuuu cerquita... y

estoy sudando

con la lucha que tengo para generar el grafico ufff.

Muchas gracias por

adelantado si alguien puede echarme una mano.

Un saludo,
Gema Bernardo.

.