cambiare sfondo immagine grafico owc

[gguida]

Ciao a tutti,
ho usato il classico codice con owc per generare un grafico con valori passati da un db.
non sono riuscito però a cambiare lo fondo dell'immagine generata...rimane sempre bianca...????

qualcuno conosce il parametro????

[fraude]

Codice?

[gguida]

ecco
volevo cambiare lo sfondo bianco della gif generata...

Set ChartObj = Server.CreateObject("OWC10.ChartSpace") 

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

	'Settiamo il tipo di grafico va da 0 a 65 circa con dei buchi
	NewChart.Type = 48
	'Setto il colore di sfondo 
	NewChart.PlotArea.Interior.Color = "#ff0000" 

	
	

	'Titolo del grafico
	NewChart.HasTitle = True 
	ChartObj.HasChartSpaceTitle = True 
	
	ChartObj.ChartSpaceTitle.Caption =  titolo1
	 set objFont = ChartObj.ChartSpaceTitle.Font
				objFont.Name = "Verdana"
				objFont.Size = 15
				objFont.Bold = True
				objFont.Color = "#ff0000"
	

	'Sotto titolo
	NewChart.Title.Caption = "Analisi Costi"
	set objFont = NewChart.Title.Font
				objFont.Name = "Verdana"
				objFont.Size = 12
				objFont.Bold = False
				objFont.Color = "#313294"
	
	
	
	

				'' ASSE VERTICALE
'				set objAxis = NewChart.Axes(ChartConsts.chAxisPositionBottom)
'				objAxis.HasTitle = True
'				objAxis.Title.Caption = "FRONT END"
'				set objFont = objAxis.Title.Font
'				objFont.Name = "Verdana"
'				objFont.Size = 11
'				objFont.Bold = False
'				objFont.Color = "#313294"
'
'				' ASSE ORIZZONTALE
'				set objAxis = NewChart.Axes(ChartConsts.chAxisPositionLeft)
'				'objAxis.NumberFormat = "." 
'				objAxis.HasTitle = True
'				objAxis.Title.Caption = "CHIAMATE NON CONCLUSE"
'				set objFont = objAxis.Title.Font
'				objFont.Name = "Verdana"
'				objFont.Size = 11
'				objFont.Bold = False
'				objFont.Color = "#313294"


	

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

	' ASSE Y 
	ARR_VISITE(0)=costomeccanica 
	ARR_VISITE(1)=costosottop
	ARR_VISITE(2)=costosotton 
	ARR_VISITE(3)=costoviteria 
	ARR_VISITE(4)=costovmatconsumo 
	ARR_VISITE(5)=costocavi
	ARR_VISITE(6)=costoselet

	' ASSE Y1 
	ARR_VISITE1(0)=costomeccanicacomm  
'	ARR_VISITE1(1)=10.98 
'	ARR_VISITE1(2)=40.98

	
	ARR_GIORNI(0)="Meccanica" 
	ARR_GIORNI(1)="Sotto Assiemi P" 
	ARR_GIORNI(2)="Sotto Assiemi N" 
	ARR_GIORNI(3)="Viteria" 
	ARR_GIORNI(4)="Materiali Consumo" 
	ARR_GIORNI(5)="Cavi" 
	ARR_GIORNI(6)="Schede Elett." 

	'Passiamo i valori al grafico 
	'NewChart.HasTitle = True
	'NewChart.Border.Color = "#336699"
	NewChart.HasLegend = True 'Attivazione della Legenda
	'Creazione delle due serie
	Set Serie = NewChart.SeriesCollection.Add 'Prima colonna
	Set Serie1 = NewChart.SeriesCollection.Add 'Seconda colonna
	'Set Serie2 = NewChart.SeriesCollection.Add 'Seconda colonna
	'Set Serie3 = NewChart.SeriesCollection.Add 'Seconda colonna
	'Set Serie4 = NewChart.SeriesCollection.Add 'Seconda colonna
	'Set Serie5 = NewChart.SeriesCollection.Add 'Seconda colonna
	'Set Serie2 = NewChart.SeriesCollection.Add 'Seconda colonna

	'NewChart.SeriesCollection(0).Caption = "Meccanica" 'scritte della legenda x la prima serie
	NewChart.SeriesCollection(1).Caption = "Meccanica di Commercio" 'scritte della legenda x la seconda serie
	NewChart.SeriesCollection(0).Interior.Color = "#00FF00"
	NewChart.SeriesCollection(1).Interior.Color = "#ffff00"
	'NewChart.SeriesCollection(2).Caption = "Uniche" 'scritte della legenda x la prima serie
	'NewChart.SeriesCollection(3).Caption = "Totali" 'scritte della legenda x la seconda serie
	'NewChart.SeriesCollection(4).Caption = "Uniche" 'scritte della legenda x la prima serie
	'NewChart.SeriesCollection(5).Caption = "Totali" 'scritte della legenda x la seconda serie

	Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_GIORNI 
	Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE 
	Serie1.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_VISITE1 

	'Settiamo il path dell'immagine che verrà creata 
	ImagePath=server.mappath("/public/report.gif") 
	'Salviamo l'immagine 
	ChartObj.ExportPicture ImagePath,"gif", 1000, 500
set oChart=nothing %>