Salut à tous.

J'ai créer un graphique avec owc à partir des données contenues dans une bd. je dévelloppe en asp.

L'axe des abscisses contient les dates et parfois mon graphique est tellement grand (jusqu'à 13 dates) que mes dates se collent et on ne voit plus rien.

J'ai vu dans des exemples qu'il était possible de mettre les dates verticalement, mais je n'ai pas trouvé comment le faire.

pouvez-vous m'aider?

Voici mon code asp:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
<%
'Création du graphique
    Dim ObjChart
    Dim ChaCon
    Dim ObjCharts
    Dim SerCol
    Set ObjChart = Server.CreateObject("OWC.Chart")
    Set ChaCon = ObjChart.Constants
    Set ObjCharts = ObjChart.Charts.Add
 
	ObjCharts.Axes(0).HasTitle = true
	ObjCharts.Axes(0).Title.Caption = "Valeur"
	ObjCharts.Axes(0).NumberFormat = "Currency"
 
	ObjCharts.Axes(1).HasTitle = true
	ObjCharts.Axes(1).Title.Caption = "Période"
 
    'adding my line
    Set SerCol1 = ObjCharts.SeriesCollection.Add
    ObjCharts.Type = ChaCon.chChartTypeColumnClustered 
 
    		'this is my line in the graph
    		SerCol1.Caption = "Evolution"			
    		SerCol1.SetData ChaCon.chDimCategories, ChaCon.chDataLiteral,periode
    		SerCol1.SetData ChaCon.chDimValues, ChaCon.chDataLiteral, valeur
    		'change	from the default bar graph To a line
    		SerCol1.Type = ChaCon.chChartTypeSmoothLine
    		'----------------------------
 
	'Set SerCol12 = ObjCharts.SeriesCollection.Add
 
 
			'this is my bar in the graph
    		'SerCol12.Caption = "Evolution2"			
    		'SerCol12.SetData ChaCon.chDimCategories, ChaCon.chDataLiteral,periode
    		'SerCol12.SetData ChaCon.chDimValues, ChaCon.chDataLiteral, valeur
 
 
    'put a title on this graphic
    ObjChart.HasChartSpaceTitle=True
    ObjChart.ChartSpaceTitle.Caption = titre
	ObjChart.ChartSpaceTitle.font.color="black"
	ObjChart.ChartSpaceTitle.font.bold=false
    'tell it you want a legend in the graphic
    ObjChart.HasChartSpaceLegend = false	
    'ObjChart.ChartSpaceLegend.Position = ChaCon.chLegendPositionLeft
 
    ImagePath=server.mappath("images/aspin.gif") 
 
    ObjChart.ExportPicture ImagePath,"gif", 400, 200
    Set ChaCon = nothing
    Set ObjCharts = nothing
    Set ObjChart = nothing %>