Añadir series y fondos con excel (Toleauto)

[sergisenna]

Hola, necesito una ayudita.

Estoy generando unos gráficos y en uno de ellos necesito añadir 3 series de datos y ponerle un fondo que sea una textura de relleno.
¿Alguien me puede facilitar un ejemplo?

Esto es lo que estoy generando:
oExcel := TOleAuto():New("Excel.Application")
oWorkBook := oExcel:WorkBooks:Add()
oExcel:Visible := .t.
oHoja := oExcel:ActiveSheet()
oHoja:Name:= "Datos"
oHoja:Range("B1:B"+ALLTRIM(STR(n))):select() //Rango de valores
oChart := oExcel:Charts:Add()
oSourceDat1 := oHoja:Range("B1:B"+ALLTRIM(STR(n)))
oChart:SetSourceData(oSourceDat1)
oChart:SeriesCollection(1):XValues := oHoja:Range("A2:A"+ALLTRIM(STR(n))) //Valores inferiores
oChart:SeriesCollection(1):Values := oHoja:Range("B1:B"+ALLTRIM(STR(n))) //Valores Izquierda
oChart:Axes(1,1):CategoryType:=2 //Quita fechas inferiores
OChart:PlotArea:interior:COLORINDEX:=19 // fondo del area del gráfico
oChart:ChartType := -4100 //barras 3D // 54 Cinta 3d //78 - picos 3d //52 - xlColumnStacked //54 xl3DColumnClustered //65 - Puntos
oChart:rotation:=0
oChart:perspective:=0
oChart:elevation:=0
oChart:HasLegend := .F. //No ver leyenda
oChart:HasTitle := .T.
oChart:HasDataTable:=.T.

Necesito añadir otras 2 series de datos con nombres diferentes y ponerle el fondo (tanto del gráfico como del área donde se dibujan las barras) con una textura.

Gracias!

[sergisenna]

Encontré la soluición a lo de las series:

Code: Select all  Expand view

  oSourceDat2 := oHoja:Range("A2:A"+ALLTRIM(STR(n)))
  oSourceDat3 := oHoja:Range("F2:F"+ALLTRIM(STR(n)))  
  oSourceDat4 := oHoja:Range("G2:G"+ALLTRIM(STR(n)))
  oSourceDat5 := oHoja:Range("J2:J"+ALLTRIM(STR(n)))

  oChart6:SeriesCollection:NewSeries()    //serie 2
  oChart6:SeriesCollection:NewSeries()    //serie 3
  oChart6:SeriesCollection(1):XValues := oSourceDat2
  oChart6:SeriesCollection(1):Values := oSourceDat3
  oChart6:SeriesCollection(1):Name := "Pan"
  //oChart6:SeriesCollection(2):XValues := oSourceDat4
  oChart6:SeriesCollection(2):Values := oSourceDat4
  oChart6:SeriesCollection(2):Name := "Aceite"
  //oChart6:SeriesCollection(3):XValues := oSourceDat5
  oChart6:SeriesCollection(3):Values := oSourceDat5
  oChart6:SeriesCollection(3):Name := "Café"