asp et owc création de graphique
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:
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 %> |