Abaixo um exemplo funcional do OWC11.ChartSpace
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | <% Set oChart = CreateObject("OWC11.ChartSpace") Set c = oChart.Constants oChart.Border.Color = c.chColorNone Dim categories(3), Vals(3), Vals2(3) ' críe um array que represente os valores da primeira série. Vals(0) = 20 Vals(1) = 40 Vals(2) = 30 Vals(3) = 10 ' críe um array que represente os valores da segunda série. Vals2(0) = 35 Vals2(1) = 35 Vals2(2) = 25 Vals2(3) = 5 ' gráfico de coluna com as duas séries e quatro categorias. ' críe um array que represente as categorias, as categorias serão as mesmas para as duas séries. categories(0) = "Zona Norte" categories(1) = "Zona Sul" categories(2) = "Zona Oeste" categories(3) = "Zona Leste" With oChart ' adicionando um objeto do gráfico. .Charts.Add ' adicionando o tipo do gráfico. .Charts(0).Type = oChart.Constants.chChartTypeColumn3d ' adicionando a primeira série ao gráfico. .Charts(0).SeriesCollection.Add ' ajustando o subtítulo da série (o texto da legenda). .Charts(0).SeriesCollection(0).Caption = "Faturamento por Região - Setembro" ' adicionando as categorias e os valores da primeira série. .Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories .Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals End With ' adicionando a segunda série ao gráfico, legenda, categorias e valores. With oChart .Charts(0).SeriesCollection.Add .Charts(0).SeriesCollection(1).Caption = "Faturamento por Região - Agosto" .Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories .Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Vals2 .Charts(0).HasLegend = True .Charts(0).HasTitle = True End With Response.Expires = 0 Response.Buffer = true Response.Clear Response.ContentType = "image/gif" 'ajustando o tamanho do gráfico (figura). Response.BinaryWrite oChart.GetPicture("gif",750, 400) %> |
