| Nome | Título Tópicos |
| Mauricio Junior |
Dúvida iniciada: 11/18/2005 1:24:35 PM
gráficos dinâmicos
Dúvida: GRÁFICO EM COLUNA
< %
Set oChart = CreateObject("OWC10.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) = 5
Vals(1) = 15
Vals(2) = 25
Vals(3) = 35
' críe um array que represente os valores da segunda série.
Vals2(0) = 35
Vals2(1) = 25
Vals2(2) = 15
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) = "Brasil"
categories(1) = "Japão"
categories(2) = "EUA"
categories(3) = "Portugal"
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 = "Terremoto"
' 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 = "Chuva"
.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",650, 450)
%>
Obs.: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:
<% Set objPieChart = Nothing %>
GRÁFICO EM PIZZA
<%
Set oChart = CreateObject("OWC10.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 série.
Vals(0) = 5
Vals(1) = 15
Vals(2) = 25
Vals(3) = 35
' gráfico de pizza com quatro categorias.
' críe um array que represente as categorias.
categories(0) = "Brasil"
categories(1) = "Japão"
categories(2) = "EUA"
categories(3) = "Portugal"
With oChart
' adicionando um objeto do gráfico.
.Charts.Add
' adicionando o tipo do gráfico.
.Charts(0).Type = oChart.Constants.chChartTypePie3d
' adicionando a 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 = "Terremoto"
' adicionando as categorias e os valoresda série.
.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals
.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",650, 450)
% >
Obs.: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:
< % Set objPieChart = Nothing % >
|