Bonjour,
Je reçois le message d'erreur «Le projet MonProj.exe a provoqué une classe d'exception EintfCastError avec le message 'Interface non supportée'.» à l'exécution de la dernière instruction du code qui suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses
  Excel_Tlb.pas,....
Var
  XlApp : _Application;
  Sheet : _WorkSheet;
  Classeur : _WorkBook;
  ShRange : ShapeRange;
  Lcid : Integer;
 
begin
  XlApp := CoApplication_.Create;
  Classeur := xlApp.Workbooks.Add(EmptyParam,Lcid);
  Sheet := Classeur.Worksheets[xlApp.ActiveWorkbook.Sheets.Count] as _worksheet;
  ShRange := Sheet.Shapes.AddTextEffect(msoTextEffect13, 'Demo', 'Impact', 36,
                             $00000000, $00000000, AColW, TopDepl) as ShapeRange;
......
Et pourtant l'exécution donne bien le résultat voulu.

Quelqu'un a-t-il une idée pour éliminer ce message ?

Merci d'avance.