Bonjour à tous;
J'utile les composants suivant:
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
5ExcelApplication: TExcelApplication; ExcelWorkbook: TExcelWorkbook; ExcelWorksheet: TExcelWorksheet; ExcelChart: TExcelChart; Uses ...., ExcelXP, ComObj, OleServer ...;
Jusque là, pas de problème, ça fonctionne bien .
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;
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"
Emessage d'erreur "EAccess violation"
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);
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,
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;
Quelqu'un pourrait-il me dire ou est mon erreur ?,
En vous remercient d'avance;
Sincères salutations à tous.
Partager