Bonjour à tous;
J'utile les composants suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    ExcelApplication: TExcelApplication;
    ExcelWorkbook: TExcelWorkbook;
    ExcelWorksheet: TExcelWorksheet;
    ExcelChart: TExcelChart;
Uses ...., ExcelXP, ComObj, OleServer ...;
Je réalise dans ma feuille graphique, en bas de feuille une TextBox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
ExcelApplication.ActiveChart.Shapes.AddTextbox(1, 10, 420, 150, 14);    // 1,2,3,5 = Spécifie l'orientation du texte
ExcelApplication.ActiveChart.Shapes.Item(1).TextFrame.Characters(0,0).text:= 'mon texte';
ExcelApplication.ActiveChart.Shapes.Item(1).Visible:=(1); 
ExcelApplication.ActiveChart.Shapes.Item(1).Rotation:=45;
ExcelApplication.ActiveChart.Shapes.Item(1).Top:= 430;
ExcelApplication.ActiveChart.Shapes.Item(1).Left:=5;
ExcelApplication.ActiveChart.Shapes.Item(1).Height:= 22;
Jusque là, pas de problème, ça fonctionne bien .

J'aimerai définir ma zone de texte (style et couleur de ligne).
Mais, les lignes suivantes me génèrent le message d'erreur "EAccess violation"
E
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
xcelApplication.ActiveChart.Shapes.Item(1).Fill.Visible;
ExcelApplication.ActiveChart.Shapes.Item(1).Fill.Solid;
ExcelApplication.ActiveChart.Shapes.Item(1).Line.DashStyle:= xlSolid; 
ExcelApplication.ActiveChart.Shapes.Item(1).Line.BackColor.RGB:= RGB(255, 255, 255);
message d'erreur "EAccess violation"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ExcelApplication.ActiveChart.Shapes.AddShape(1,10, 10, 250, 250);
ExcelApplication.ActiveChart.Shapes.Item(1).Line.Weight:=4;
ExcelApplication.ActiveChart.Shapes.Item(1).Line.DashStyle:= 7;
J'ai effectué des recherches sur le net, j'ai vu les mêmes type de code, mais, dans mon cas, ça ne marche pas,
Quelqu'un pourrait-il me dire ou est mon erreur ?,
En vous remercient d'avance;
Sincères salutations à tous.