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!