Como usar o componente OWC (Office Web Component)?
Abaixo segue um exemplo de implementação:
<%
Set oChart = CreateObject("OWC11.ChartSpace")
Set c = oChart.Constants
oChart.Border.Color = c.chColorNone
Dim categories(4), Serie1(4), Serie2(4)
'Definir os valores para primeira Serie
Serie1(0) = 8
Serie1(1) = 13
Serie1(2) = 44
Serie1(3) = 21
Serie1(4) = 33
' Definir os valores para a segunda Serie.
Serie2(0) = 35
Serie2(1) = 25
Serie2(2) = 15
Serie2(3) = 45
Serie2(4) = 32
' Criar grafico de colunas com 2 series e Cinco Categorias
' Criar array para as categorias. Elas serao identicas para as duas series.
categories(0) = "Inglaterra"
categories(1) = "Espanha"
categories(2) = "França"
categories(3) = "Alemanha"
categories(4) = "Brasil"
With oChart
' Acrescentar objeto de grafico
.Charts.Add
' Definir o tipo do gráfico.
.Charts(0).Type = oChart.Constants.chChartTypeColumn3d
' Acrescentar a primeira Serie ao grafico.
.Charts(0).SeriesCollection.Add
' Ajustar o Subtitulo da série (Legenda).
.Charts(0).SeriesCollection(0).Caption = "Pontos Fase 1"
' Acrescentar categorias e valores da primeira serie.
.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Serie1
End With
' Acrescentar a segunda Serie no grafico, assim como legenda, categorias e valores.
With oChart
.Charts(0).SeriesCollection.Add
.Charts(0).SeriesCollection(1).Caption = "Pontos Fase 2"
.Charts(0).SeriesCollection(1).SetData c.chDimCategories, c.chDataLiteral, Categories
.Charts(0).SeriesCollection(1).SetData c.chDimValues, c.chDataLiteral, Serie2
.Charts(0).HasLegend = True
.Charts(0).HasTitle = True
End With
Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/gif"
' Definir tamanho do grafico (figura).
Response.BinaryWrite oChart.GetPicture("gif",800, 600)
%>
|