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

[mohcultiv]

oui j'ai essayer seulement les méthodes utilisées pour résoudre ce problèmes avec d'autres languages tels que vba ne sont apparement pas supporté en asp.
j'obtiens à chaques fois des erreurs du type: méthode ou propriété inéxistante pour cet objet.
mais ta raison c'est trop mal documenté, ou plutôt tres peu.

[LEK]

un langage tel que VB te permettra d'avoir accès aux fonctions via un fichier tlb et tu pourras avoir de meilleur temps de réponse qu'avec ASP => je serais toi je reprendrais mon code et construirais avec une dll com en vb6 => tu auras accès à l'ensemble des fonctions existantes, aux énumérations prédéfinies, etc...

[pmboutteau]

J'avais pas trouvé, du coup j'ai agrandi la taille de mon image.

Toutes les fonctionnalités possibles de Excel ne fonctionnent pas toutes en dvlpt ASP apparemment ou alors il y a certaines subtilités que je n'avais pas trouvé.

[mohcultiv]

J'ai rien trouvé chez Microsoft me permettant de résoudre mon problème.
Quan à vb je ne peux pas reprendre mon code asp pour tout refaire en vb6.
Mais je n'ai pas compris ton histoire de dll LEP, peux tu m'en dire un peu plus, de quelle dll parles-tu?

[mohcultiv]

J'ai enfin trouvé:


il fallait remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ObjChart = Server.CreateObject("OWC.Chart")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ObjChart = Server.CreateObject("OWC10.Chartspace")