Discussion :

[gbouchat]

Bonjour a tous!

Je souhaite créer un graphique en pointe de tarte a partir d'OWC. Je suis capable d'avoir mon graphique en pointe de tarte et de le faire afficher, mais je ne suis pas capable de trouver un exemple de comment faire pour pouvoir avoir les noms, les valeurs et les pourcentages des différente "pointes" du graphique. J'ai tenter de chercher dans le fichier OWCDCH11.CHM afin de trouver comment utiliser les propriétés du graphique afin d'y arriver, mais le probleme est que tout ce qui se trouve dans la partie "Programming Informations" du fichier est absent ( Il me donne le message "The page cannot be displayed" d'internet explorer quand une page ne peut pas s'afficher ). Alors je me demandais si quelqu'un sait ou trouver une version du fichier OWCDCH11.CHM qui soit complete ou alors comment utiliser les propriétés nécessaire afin d'obtenir ce que je veux.

Je met un exemple de mon code qui affiche le graphique (ce code inclut les lignes qui me donnent une erreur) :

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
Response.ContentType = "image/gif" 
 
dim graphtype
dim myyear
dim mycat
dim myval1
dim myval2
dim myval3
dim mygraphtitle
dim myid
dim TraceID
 
myval = 12 & chr(9) & 15 & chr(9) & 10 & chr(9) & 08 & chr(9) & 21 & chr(9) & 14 & chr(9) & 16
mycat = 1 & chr(9) & 2 & chr(9) & 3 & chr(9) & 4 & chr(9) & 5 & chr(9) & 6 & chr(9) & 7
 
	Response.Expires = 0
	Response.Buffer = True
	Response.Clear
 
	PictType = "gif"
	set mychartsp = Server.CreateObject ("OWC11.ChartSpace")
	set chConstants = myChartsp.Constants
 
	myChartsp.Clear
	myChartsp.Charts.Add
	mychartsp.charts(0).PlotArea.Interior.Color = rgb(256,256,256)
 
	set objSeries1 = mychartsp.charts(0).SeriesCollection.Add
	objSeries1.Caption = "Turnaround Time"
	objSeries1.SetData  chConstants.chDimCategories, chConstants.chDataLiteral, mycat
	objSeries1.SetData  chConstants.chDimValues, chConstants.chDataLiteral, myval
	mychartsp.charts(0).SeriesCollection(0).Explosion = 40
	mychartsp.charts(0).SeriesCollection(0).DataLabelsCollection(0).HasPercentage = True	'Cette ligne me donne une erreur
	mychartsp.charts(0).SeriesCollection(0).DataLabelsCollection(0).HasCategoryName = True	'Cette ligne me donne une erreur
	objSeries1.type = chConstants.chChartTypePieExploded3D
 
	myChartsp.Charts(0).HasTitle = True
	mychartsp.Charts(0).HasLegend = true
	myChartsp.Charts(0).Title.Caption = "YTD Turnaround Time"
 
	dim a
 
	a = myChartsp.GetPicture(PictType, 500, 340)
 
	response.BinaryWrite(a)

Les erreurs qui me sont données sont :
Microsoft Office 2003 Web Components (0x800A03EC)
Invalid Parameter

Merci d'avance

[mohcultiv]

Moi je procède comme ceci, et je n'ai pas de problème, mais j'utilise owc10:

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
 Set ObjChart = Server.CreateObject("OWC10.Chartspace")
    Set ChaCon = ObjChart.Constants
    Set ObjCharts = ObjChart.Charts.Add
	ObjCharts.PlotArea.Interior.Color = "white"
	ObjChart.Border.color = chacon.chColorNone
    'adding my line
    Set SerCol1 = ObjCharts.SeriesCollection.Add
    set label1 = SerCol1.DataLabelsCollection.Add
            ObjCharts.Type = ChaCon.chChartTypeColumnClustered 
 
	With label1
		.HasValue = true
		.Separator = "\n"
		.HasPercentage = false
		.Font.Size = 6
		.Font.Color = "white"				
        	End With
 
 
    SerCol1.Caption = titre			
    SerCol1.SetData ChaCon.chDimCategories, ChaCon.chDataLiteral,libel
    SerCol1.SetData ChaCon.chDimValues, ChaCon.chDataLiteral, poidsbfmn
    SerCol1.Type = ChaCon.chChartTypePieExploded3D
 
    'put a title on this graphic
    ObjChart.HasChartSpaceTitle=false

je ne sais pas si cela va t'aider, mais bon...

Sinon est ce que tu sais comment changer les couleurs de chaques tranches du cammembert obtenu?
Et à quoi sert l'option: explosion=40.

merci