Domanda OWC

[matpez]

Salve ragazzi, sono nuovo del forum, di solito io frequento un altro forum :rollo: ma siccome la nessuno mi sa rispondere chiedo a voi se sapete risolvere il mio problema.

Con il grafico di OWC sarebbe possibile eliminare i valori che lui in automatico crea sugli assi?
Mi trovo ad avere un grafico con molti valori e quindi nn si legge nulla, l'unica soluzione per nn vedere una specie di marmellata di caratteri è quella di nascondere il valore dell'asse. E' Posibile?


Grazie

[santino83]

ma questo OWC non ce l'ha un manuale o una guida di riferimento o qualcosa di simile?

[morphy79]

dunque questo è un esempietto su cui puoi lavorarci su...

    
				<%
				'Creiamo l'oggetto
				Set ChartObj = Server.CreateObject("OWC10.ChartSpace")
	
				Set ChartConsts = ChartObj.Constants
				set NewChart = ChartObj.Charts.Add
	
				'Settiamo il tipo di grafico, il 13 è con i puntini, il 12 senza, 1 istogramma, 46 istogramma 3D
				NewChart.Type = 0
	
				'Passiamo i valori al grafico
	
				Set Serie = NewChart.SeriesCollection.Add()

				Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, ARR_CSZFE
	
				Serie.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_NON_CONCLUSE

				Set Serie2 = NewChart.SeriesCollection.Add()
				Serie2.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_T1
			
				Set Serie3 = NewChart.SeriesCollection.Add()
				Serie3.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, ARR_T3menoT4			
						
				'set up some additional properties
				'add and format the chart title
			
				NewChart.HasTitle = True
				NewChart.Border.Color = "#336699"	' colore del bordo della tabella
				NewChart.HasLegend = True       ' visualizza o meno la legenda
				NewChart.SeriesCollection(0).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "TOTALI"   ' testo della legenda
				NewChart.SeriesCollection(1).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "x FASATURA"    ' testo della legenda
				NewChart.SeriesCollection(2).Caption = "CHIAMATE " & VbCrLf & "NON CONCLUSE" & VbCrLf & "x INTERRUZIONE"   ' testo della legenda

				' TITOLO
				NewChart.Title.Caption = "Chiamate non concluse ( Fasatura + Interruzione )"
				set objFont = NewChart.Title.Font
				objFont.Name = "Verdana"
				objFont.Size = 14
				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"
	
				' COLORI INTERNI DEL GRAFICO
				NewChart.PlotArea.Interior.Color = "#EAEEE9"
				NewChart.SeriesCollection(0).Interior.Color = "#336699"		' per grafico istogramma 
				NewChart.SeriesCollection(1).Interior.Color = "#D3EDF4"		' per grafico istogramma 
				NewChart.SeriesCollection(2).Interior.Color = "#EDE989"		' per grafico istogramma 
			
				NewChart.SeriesCollection(0).Line.Color = "#65B9E2"	' per grafico a linee		
			
				'Settiamo il path dell'immagine che verrà creata
				ImagePath=server.mappath(gruppo & "_AGGIORNAMENTI_CHIAMATE_NON_CONCLUSE.gif")
				'Salviamo l'immagine
				ChartObj.ExportPicture ImagePath,"gif", 600, 350
				set oChart=nothing

				response.write "[img]../images/transp.gif[/img]"

				%>

				<script> 
					<%="document.getElementById('GRAFICO_1').src='" & gruppo & "_AGGIORNAMENTI_CHIAMATE_NON_CONCLUSE.gif'"%>
				</script>

[matpez]

Grazie mille per il tuo "esempietto" , lo avevo già provato e testato ed in effetti ha molte cose interessanti, tutte tranne quella che interessa a me


Io ho trovato la guida, ma nn è per ASP ma per VBA e quindi quando ho cercato di mettere le cose come diceva la guida mi da errore.. bha

Se avete qlc idea sono ben contento di ascoltarla

[morphy79]

come no ?????
basta che metti zero come misura del font per l'asse che ti interessa e sei a posto !!!
o cambi e metti lo stesso colore dello sfondo al carattere...

[matpez]

in effetti ....

... a volte nn ci penso a ste banalità!!


Proverò! Grazie ^^

[matpez]

Ho provato a fare le tue idee: mettere il font a 0 nn mi lascia e mettere il colore come lo sfondo si lo fa ma lo mette della descrizione dell'asse e non dei valori dell'asse...

... altre idee