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)
%>

<% 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) %>