Creare dei grafici con OWC

di Andrea Palmatè, in Classic ASP, UserScript, Scripting,

Con lo script di oggi è possibile creare un grafico mediante l'oggetto OWC di Office 2000.
Alla fine avremo un file .gif che sarà possibile inserire senza problemi nella nostra pagina ASP

I tipi di grafici disponibili sono questi:

Tipo = 1 - Istogramma
Tipo = 3 - Istogramma inverito
Tipo = 6 - Linea spezzata
Tipo = 7 - Linea spezzata con punti
Tipo = 12 - Linea Curva
Tipo = 18 - Torta1
Tipo = 19 - Torta2
Tipo = 30 - Area piena
Tipo = 32 - Anello

Ed ecco il semplice codice da utilizzare

<%

'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC.Chart")

 Set ChartConsts = ChartObj.Constants
set NewChart = ChartObj.Charts.Add

'Settiamo il tipo di grafico
NewChart.Type = 12

'Creiamo gli array che conterranno i dati da passare all'oggetto e necessari a creare il grafico
ReDim ARR_VISITE(2)

   '   ASSE Y
ARR_VISITE(0)=10.8
ARR_VISITE(1)=34.98

'     ASSE X
ReDim ARR_GIORNI(2)
ARR_GIORNI(0)="10/10/01"
ARR_GIORNI(1)="11/10/01"

'Passiamo i valori al grafico
Set Serie = NewChart.SeriesCollection.Add
Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI

Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE
'Settiamo il path dell'immagine che verrà creata
ImagePath=server.mappath("reports/report.gif")
'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 1000, 400
set oChart=nothing
%>

A questo punto avremo la nostra immagine gif che sarà possibile inserire nella nostra pagina HTML, semplicemente con un codice del tipo:

<img src="/reports/report.gif">

Rendere più avanzato questo script non è difficile e vi permetterà di costruire grafici al volo con poche e semplici linee di codice.

Commenti

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn

Per inserire un commento, devi avere un account.

Fai il login e torna a questa pagina, oppure registrati alla nostra community.

Approfondimenti

Nessuna risorsa collegata

I più letti di oggi