Gráfico em Formato de Pizza
<%
' Cria uma instância do controle
Set ChartDirector = Server.CreateObject("ChartDirector.API")
' Cria um array com os títulos do gráfico
array_Titulo = Array("Domínio 01", "Domínio 02", "Domínio 03", "Domínio 04", "Domínio 05")
' Cria um array com os valores do gráfico
array_Valores = Array(250, 190, 244, 85, 125)
' Informa o tamanho do gráfico
Set grafico = ChartDirector.PieChart(450, 220)
' Adiciona o título no rodapé do gráfico usando a fonte Arial Bold Italic
Call grafico.addTitle2(ChartDirector.Bottom, "Acesso aos Domínios", "arialbi.ttf")
' Informa que o gráfico será em 3D
Call grafico.set3D()
' Adiciona a caixa de legenda no canto superior esquerdo da imagem
Call grafico.addLegend(340, 10)
' Modifica o formato da etiqueta para $nnnK (pp.pp%)
Call grafico.setLabelFormat("{label} - {value}<*br*>({percent}%)")
' Define os titulos e os valores do gráfico
Call grafico.setData(array_Valores, array_Titulo)
' Explodir o primeiro item (valor = 0)
Call grafico.setExplode(0)
' Imprime a imagem do gráfico na tela
Response.ContentType = "image/png"
Response.BinaryWrite grafico.makeChart2(ChartDirector.PNG)
' Tira os objetos da memória
Set grafico = Nothing
Set ChartDirector = Nothing
%>