[Delphi 5] Graphique sous Excel

Version imprimable

08/10/2007, 14h03
virggis

[Delphi 5] Graphique sous Excel

Bonjour,

je crée des graphiques sour excel via Delphi5 mais je ne trouve pas la
commande pour determiner les valeurs de l'axe des abscisses.

En cherchant, je trouve les constante xlvalue et xlcategorie, hors, ces
constantes ne sont pas connus via delphi5.

D'autre utilise l'unite excel2000 : je ne l'ai pas...

je ne trouve pas non plus la valeur de xlcategorie... pas plus que
celle xlvalue

Pouvez vous m'aider?

je tourne en rond :cry:

merci

salut

regarde du cote des propriete :
Code:

1 2 3 ChartObject.Chart.SeriesCollection(i).Name ChartObject.Chart.SeriesCollection(i).XValues
@+ Phil

08/10/2007, 16h08
virggis

déjà vu ...

il ne reconnait pas XlValues.

merci quand meme

je pense que cela est un rapport avec la version de Delphi mais ça m'aide pas plus.
08/10/2007, 16h43
anapurna

salut

c'est des variant il ne devrais meme pas bonché le compilo
tu l'utilise comment ?

@+ Phil

Comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  XRange:=vExcelApplication.Range['B2:B6;B8'];
  YRange:=vExcelApplication.Range['C2:C6;C8'];
  Chart1:=vXLClasseur.ActiveSheet.chartobjects.add[100,250,500,300];
  vXLClasseur.ActiveSheet.chartobjects[1].chart.ChartType := 65 ;
  vXLClasseur.ActiveSheet.chartobjects[1].Select ;
 
  Chart1.Chart.SeriesCollection.Add(YRange);
  Chart1.chart.seriescollection[1].name:='Exposants et co-exposants';
  Chart1.Chart.SeriesCollection(1).XValues:=XRange;
  Chart1.Chart.HasTitle:=true;
  Chart1.Chart.HasLegend:=true;
  Chart1.Chart.ChartTitle.Text:='Nombre d''exposants';

ça compile, pas de soucis

par contre à l'execution, j'ai l'erreur

"Impossible de définir la propriété XlValues de la classe Series"

et bien entendu si je met en commentaire la ligne

Code:

1
2
 
  Chart1.Chart.SeriesCollection(1).XValues:=XRange;

plus d'erreur

salut

voila comment je fait .
je pense que tu as oublié de lui assigner les données

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 CurrentSheet := ExcelApp.ActiveWorkbook.ActiveSheet;
  ChartObject  := CurrentSheet.ChartObjects.Add(0,0,1,1);
  ChartObject.Top    := _top;
  ChartObject.Left   := _left;
  ChartObject.Width  := _width;
  ChartObject.Height := _Height;
	// type de graphique
  ChartObject.Chart.ChartType := xlLine;
  ChartObject.Chart.HasDataTable := FALSE;

  DataSheet := ExcelApp.ActiveWorkbook.Sheets['Datas'];
  
ChartObject.Chart.SetSourceData(Source:=DataSheet.Range['A3',MaxLetter+'19'], PlotBy:=xlRows);

	// séries de données
  for i := 1 to ChartObject.Chart.SeriesCollection.Count do
  begin
    ChartObject.Chart.SeriesCollection(i).Name    := DataSheet.Range['A2','A2'].Offset[i, 0].Value;
    ChartObject.Chart.SeriesCollection(i).XValues := DataSheet.Range['B2', MaxLetter+'2'].Value;
  end;

ensuite pour ce qui est de la presentation

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
	// légende
	ChartObject.Chart.Legend.AutoScaleFont := FALSE;
	ChartObject.Chart.Legend.Font.Size := 10;
	ChartObject.Chart.Legend.Position := xlBottom;
	// zone de tracé
	ChartObject.Chart.ChartArea.AutoScaleFont := FALSE;
	ChartObject.Chart.ChartArea.Font.Size := 10;
	ChartObject.Chart.PlotArea.Interior.ColorIndex := xlNone;
	// axe horizontal
	ChartObject.Chart.Axes(xlCategory).AxisBetweenCategories := FALSE;
	ChartObject.Chart.Axes(xlCategory).ReversePlotOrder := FALSE;
	// axe vertival
	
        ChartObject.Chart.Axes(xlValue).MinimumScale := ValMin;
	ChartObject.Chart.Axes(xlValue).MaximumScale := ValMax;
       

	ChartObject.Chart.Axes(xlValue).MinorUnit := 10;
	ChartObject.Chart.Axes(xlValue).MajorUnit := 20;
	ChartObject.Chart.Axes(xlValue).Crosses := xlMaximum;
	ChartObject.Chart.Axes(xlValue).ReversePlotOrder := False;
	ChartObject.Chart.Axes(xlValue).ScaleType := xlLinear;

@+ Phil

09/10/2007, 11h31
virggis
Voilà ce que ça donnerai adapté à mon code
Code:

1 2 Chart1.Chart.SetSourceData(Source:=vExcelApplication.Range('C2:C6;C8'), PlotBy:=xlColumns);
sauf qu'il ne reconnais pas XlColumns (identificateur non declaré)
et donc ça compile pas

je vais voir si je peut pas trouver ça valeur...

et si quelqu'un là ausis , je suis preneuse

merci de ton aide!
09/10/2007, 12h02
anapurna

salut

voila la valeur

Code:

xlColumns = $00000002;

@+ Phil

Non, cela ne marche pas mieux : ça compile mais cela genere une erreur.

j'ai trouvé pour que cela fonctionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 XRange:=vExcelApplication.Range['B2:B7']; YRange:=vExcelApplication.Range['C2:C7']; //XRange:=vExcelApplication.Range['B2:B6;B8'] faisant planté le reste... Chart1:=vXLClasseur.ActiveSheet.chartobjects.add[100,250,500,300]; vXLClasseur.ActiveSheet.chartobjects[1].chart.ChartType := 65 ; vXLClasseur.ActiveSheet.chartobjects[1].Select ; Chart1.Chart.SeriesCollection.Add(YRange); Chart1.chart.seriescollection[1].name:='Exposants et co-exposants'; Chart1.Chart.SeriesCollection(1).XValues:=XRange; Chart1.Chart.SeriesCollection(1).Values:=YRange; //Rajout de cette ligne
Il a donc fallu que je reorganise les valeurs source dans ma fiche Excel (en effet ma plage est passé de B2:B6;B8 à B2:B7

et que je rajoute une ligne

09/10/2007, 14h28
virggis

en fait c'est à moitié resolu car je n'arrive pas à comprendre pourquoi B2,B6;B8 arrive à tout faire planter alors que la commande marche bien...
09/10/2007, 14h55
anapurna
salut

pour des plage non contigu tu doit utiliser l'instruction suivante
Code:

1 2 Union(CurrentSheet.Range['B2','B6'], CurrentSheet.Range['D2','D6'])
remarque que les champs doivent etre de meme longueur
je n'ai pas essayer en verticale mais je suppose que cela doit fonctionner aussi

@+ Phil
09/10/2007, 16h03
virggis

ben je comprend pas vraiment ta ligne de code...

Pour mon cas, la plage de cellule concerné se trouve dans les cellule B2 - B3 - B4 - B5 - B6 et B8

(je me suis arrangé autrement mais ça me travaille de ne pas pouvoir le specifier dans delphi)

sinon, tu parles de "même Logueur"? je comprend pas non plus... (pour l'axe des ordonnées j'ai des valeurs, ça peut etre 1 ou 300 ou 20 etc...)

voilà mon exemple si tu comprend mieux

pour l'axe des abscisses (même soucis pour l'axe des ordonnées d'ailleurs)

On a

2005 (B2)
2004 (B3)
2003 (B4)
2002 (B5)
2001 (B6)
--Ligne à ne pas prendre en compte (B7)
2006 (B8)

L'axe prend les valeurs de 2001 à 2006

qui plus est , j'ai du faire une reorg pour qu'ils me prennent les valeurs dans l'ordre croissant...(2001- 2002 - 2003 - etc)

Bilan : j'y arrive mais grace à de la bricol...
c'est pas top top

salut

dans ton cas je ferai

Code:

ChartObject.Chart.SetSourceData(Source:=ExcelApp.Union(CurrentSheet.Range['B17','B29'], CurrentSheet.Range['D17','D29']), PlotBy:=xlColumns);

ce qui va te creer N selection
Code:

1 2 3 4 5 6 7 ChartObject.Chart.SeriesCollection(1).Name := CurrentSheet.Range['B15','B15'].Value; ChartObject.Chart.SeriesCollection(1).XValues := CurrentSheet.Range['A17','A29'].Value; ChartObject.Chart.SeriesCollection(1).Interior.ColorIndex := 1; ChartObject.Chart.SeriesCollection(2).Name := CurrentSheet.Range['D15','D15'].Value; ChartObject.Chart.SeriesCollection(2).XValues := CurrentSheet.Range['A17','A29'].Value; ChartObject.Chart.SeriesCollection(2).Interior.ColorIndex := 2;
il faudrait que tu definisse un jeux d'essai afin de pouvoir comprendre dans quelle sens ce trouve tes données

@+ Phil

09/10/2007, 16h39
virggis

sauf que le setsourcedata ne marche pas chez moi...
donc, vaut mieux ma petite bricole.

tu utilise quelle version de Delphi?
09/10/2007, 19h00
anapurna

salut

j'utilise delphi 6 pro
mais le probleme viens pas de la puisque c'est de l'ole
les commande sont celle de ecxel

c'est bizard ton truc 8O

@+ Phil
10/10/2007, 14h11
virggis

effectivement :(

il doit y avoir un grain de sable kkes part mais là je vois pas.

Bon l'essentiel c'est que ça marche, d'une façon où une autre...

quand j'aurai du temps, je re regarderai...

je serais quand meme curieuse de le tester avec delphi 6 pour voir ce que cela fait