[Collections] Methode inconnue dans le tutorial Delphi Excel
Bonjour à tous
Dans le tutorial Delphi concernant les composants Office Serveur, on peut trouver ceci :
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
|
Var
MonClasseur : _workbook;
MaFeuille :_Worksheet;
MonGraph : _Chart;
rMaPlage : ExcelRange;
MaSerie : Series;
MaCollSerie : SeriesCollection;
compteur:integer;
...
begin
ExcelApplication1.Connect;
MonClasseur:=ExcelApplication1.Workbooks.Open('c:\tutoriel\tuto.xls',False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApplication1.Visible[0]:=true;
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
rMaPlage:=MaFeuille.Range['A1','C20'];
MonGraph:=MonClasseur.Sheets.Add(emptyparam,emptyparam,1,xlChart,0) as _chart;
MonGraph.ChartType:=xlXYScatter;
MaCollSerie:=MonGraph.SeriesCollection(EmptyParam,0) as SeriesCollection;
MaSerie:=MaCollSerie.NewSeries;
MaSerie.FormulaLocal:='=SERIE(;Feuil1!$A$2:$A$21;Feuil1!$B$2:$B$21;1)';
end; |
Malheureusement, j'ai un petit souci avec l'objet SeriesCollection.
D'une part, j'en ai deux dont un seul accessible : SeriesCollection
type IDispatch et l'autre type IVcSeriesCollection (MSChart)
seul IVcSeriesCollection semble accessible. Enfin, ni dans l'interface IDispatch ni dans la classe IVcSeriesCollection je ne peux invoquer la méthode "NewSeries". Je n'ai peut etre pas compris quelque chose au code ci-dessus. Quelqu'un aurait il une idée ? :?
Merci par avance !
Cordialement.
F.
[Résolu] Changement sur les Interfaces IDispatch
Bonjour
J'ai résolu mon problème :
Désormais dans ExcelXP le module pour piloter Excel, il ne faut pas utiliser l'interface IDispatch 'SeriesCollection' mais l'interface IDispatch 'ISeriesCollection'. C'est en examinant le fichier ExcelXP.pas (que j'ai retrouvé moi meme puisque Delphi ne savait pas ou il etait) que j'ai pu parvenir à refaire le code du tutorial.
Merci aux personnes ayant consacré un peu de leur temps sur le sujet.
Cordialement.
F.