Graphique Excel par objet automation

Question

Je voudrais modifier les dimensions et couleurs d'un graphique existant 

d'une feuille Excel qui en contient plusieurs.
Dans tous les exemples que 
j'ai trouvés, l'application crée le graphique 
et il est donc actif. Il est 
alors facile de le manipuler:

ExcelWorkBook.Charts.Add;
Chart := 
Excel.ActiveChart;
Chart.ChartType := xl3DPie;
....

Or, comme dans 
mon cas, il existe, je cherche à activer le bon graphique 
de la bonne 
feuille.

Toutes les instructions que j'ai essayées se soldent par un 
message 
d'erreur à l'exécution.
Le plus bloquant étant "Interface non 
supportée" sur :
Graph := Ws.ChartObjects(1,LcId) as _Chart;

Quelqu'un 
aurait-il déja effectué cette manip ?

Merci d'avance.

defluc

yvessimon · Answer

quelle version de excel utilises-tu ?


Dans la déclarations uses il doit y avoir excel2000 ou autre version

yvessimon

cs_defluc · Answer

Je voudrais une compatibilité Excel97, 2000 et 2003

Excel 97 subit une violation  d'accès sur 

   WBk := Excel.Workbooks.Open(FileName,

                               
EmptyParam, EmptyParam, EmptyParam,

                               
EmptyParam, EmptyParam, EmptyParam,

                               
EmptyParam, EmptyParam, EmptyParam,

                               
EmptyParam, EmptyParam, EmptyParam,

                               
LCID);

mais fonctionne avec 

 xlApp.Workbooks.Open(ExtractFilePath(Application.ExeName) + NomClasseurEdit.Text);


Toutes les instructions relatives à la feuille fonctionnent :

   xlApp.Cells[4,2].Interior.Color := FontColor;

   xlApp.Cells[4,2].Font.Color := BrushColor;

   xlApp.Range[xlApp.Cells[2,2],xlApp.Cells[RowMax,ColMax]].Borders.Color := FontColor;

C'est l'adressage des Chart qui coince
defluc

Graphique Excel par objet automation

2 réponses

Votre réponse

Discussions similaires