Con il codice sotto riesco a generare un grafico senza alcun problema... o meglio... non lo capisco troppo bene visto che non è mio....
con questo codice gli elementi sull'asse X progrediscono in automatico dall'elemento 0 all'elemento 1 dell'array giorni .... invece io vorrei poterli definire a mano e definirne il rispettivo valore...
AIUTATEMI VI PLEGO !!!! : )
<%
'Creiamo l'oggetto
Set ChartObj = Server.CreateObject("OWC10.ChartSpace")
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("report.gif")
'Salviamo l'immagine
ChartObj.ExportPicture ImagePath,"gif", 1000, 400
set oChart=nothing
%>
[img]report.gif[/img]
Rispondi quotando