[Resolvido] Componente OWC

[xanburzum 169]

Usando o Microsoft Office Web Components para gerar um Gráfico em Formato de Pizza ,o OWC é um conjunto de controles de Modelo de Objeto Componente (COM) usado na geração e publicação de planilhas e gráficos.

 

 

 

<%
' Define as variáveis
Dim array_Titulo(4), array_Valores(4)

' Cria uma instância do controle
Set OfficeWeb = Server.CreateObject("OWC10.ChartSpace")
Set constants = OfficeWeb.Constants
OfficeWeb.Border.Color = constants.chColorNone

' Cria um array com os valores do gráfico
array_Valores(0) = 250
array_Valores(1) = 190
array_Valores(2) = 244
array_Valores(3) = 85
array_Valores(4) = 125

' Cria um array com os títulos do gráfico
array_Titulo(0) = "Domínio 01"
array_Titulo(1) = "Domínio 02"
array_Titulo(2) = "Domínio 03"
array_Titulo(3) = "Domínio 04"
array_Titulo(4) = "Domínio 05"

With OfficeWeb
  ' Inclui um objeto no gráfico
  .Charts.Add
  ' Tipo de grafico em coluna 3D
  .Charts(0).Type = OfficeWeb.Constants.chChartTypePie3d
  ' Incluindo série no gráfico
  .Charts(0).SeriesCollection.Add
  ' Definindo o titulo da série
  .Charts(0).SeriesCollection(0).Caption = "Acesso aos Domínios"
  ' Adicionando as categorias e os valores da série
  .Charts(0).SeriesCollection(0).SetData constants.chDimCategories, constants.chDataLiteral, array_Titulo
  .Charts(0).SeriesCollection(0).SetData constants.chDimValues, constants.chDataLiteral, array_Valores
  .Charts(0).HasLegend = True
  .Charts(0).HasTitle = True
End With

' Imprime a imagem do gráfico na tela
Response.ContentType = "image/gif"
Response.BinaryWrite OfficeWeb.GetPicture("gif", 300, 200)

' Tira os objetos da memória
Set constants = Nothing
Set OfficeWeb = Nothing
%>