crear un Grafico con VB6.0
Publicado por Cristian (5 intervenciones) el 19/04/2011 22:42:14
Hola a todos
acudo a uds. en busca de una luz que ilumine mi desarrollo.
Estoy creando un grafico en excel con VB6.0 y no he podido crear
mas de una categoria en el grafico. Este consta de una comparacion
entre años en las ventas con diferentes areas de trabajo.
las categorias vendrian siendo ejemplo año 2010 contra año 2011
las areas serian las series ejemplo como metales, maderas, plasticos, etc.
los valores serian las ventas por cada area para cada año.
xlGraph.Activate
xlGraph.HasTitle = True
xlGraph.HasLegend = True
xlGraph.ChartType = xl3DColumnStacked 'xl3DColumnClustered
xlGraph.Legend.position = xlLegendPositionBottom
xlGraph.Name = "Grafico"
xlGraph.ChartTitle.Text = "Ventas Periodo " & Cperiodo1.Text & " Al " & Cperiodo2.Text & " Inf. " & CInforme.Text
xlGraph.ChartArea.Font.Size = 10
xlGraph.ChartArea.Font.Color = vbBlue
LastCell = "D" & Mid$(Str$(FilaE), 2)
xlGraph.SetSourceData xlSheet.Range("a1:" & LastCell), xlColumns
xlGraph.Axes(xlCategory, xlPrimary).HasTitle = True
xlGraph.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = ""
xlGraph.SeriesCollection(1).Name = "=""Metales"""
xlGraph.SeriesCollection(2).Name = "=""Maderas"""
xlGraph.SeriesCollection(3).Name = "=""Plasticos"""
En que estoy fallando ya que me muestra todo como un puro año.
les agradesco la ayuda.
acudo a uds. en busca de una luz que ilumine mi desarrollo.
Estoy creando un grafico en excel con VB6.0 y no he podido crear
mas de una categoria en el grafico. Este consta de una comparacion
entre años en las ventas con diferentes areas de trabajo.
las categorias vendrian siendo ejemplo año 2010 contra año 2011
las areas serian las series ejemplo como metales, maderas, plasticos, etc.
los valores serian las ventas por cada area para cada año.
xlGraph.Activate
xlGraph.HasTitle = True
xlGraph.HasLegend = True
xlGraph.ChartType = xl3DColumnStacked 'xl3DColumnClustered
xlGraph.Legend.position = xlLegendPositionBottom
xlGraph.Name = "Grafico"
xlGraph.ChartTitle.Text = "Ventas Periodo " & Cperiodo1.Text & " Al " & Cperiodo2.Text & " Inf. " & CInforme.Text
xlGraph.ChartArea.Font.Size = 10
xlGraph.ChartArea.Font.Color = vbBlue
LastCell = "D" & Mid$(Str$(FilaE), 2)
xlGraph.SetSourceData xlSheet.Range("a1:" & LastCell), xlColumns
xlGraph.Axes(xlCategory, xlPrimary).HasTitle = True
xlGraph.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = ""
xlGraph.SeriesCollection(1).Name = "=""Metales"""
xlGraph.SeriesCollection(2).Name = "=""Maderas"""
xlGraph.SeriesCollection(3).Name = "=""Plasticos"""
En que estoy fallando ya que me muestra todo como un puro año.
les agradesco la ayuda.
Valora esta pregunta


0