Excel, problème avec " line, fill " d'une TextBox
Bonjour à tous;
J'utile les composants suivant:
Code:
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:
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:
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:
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.
