Discussion :

[mohcultiv]

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 %>

[mohcultiv]

Personne ne peux m'aider?

[Immobilis]

Salut,

J'ai un peu cherché pas pas retrouvé. Par contre, pour l'avoir testé il y a longtemps, j'ai plutôt opté pour un retour à la ligne plutôt qu'un texte vertical.

A+

[mohcultiv]

ouais mais c pas joli pour des dates.

merci quand meme.

[mohcultiv]

et pour le retour a la ligne comment tu fais pour le gérer?
parce que moi il revient a la ligne quand il veux donc des fois g des trucs comme ca:

31/12/200
6

je prefererais

31/12
/2006 par exemple

[LEK]

Ce genre d'outil n'est pas forcément lié à ASP, as tu essayer de demander à d'autres utilisateurs de langages supportan COM : VB6/Access vba/Delplhi/C++...
Peut être que les mieux placés pour répondre à tes questions sont les mêmes qui ont produit ce produit apparamment mal documenté : M$Soft