Excel in OLE Container

[michael.cohrs]

Guten morgen zusammen,

ich habe folgendes Problem:

Es wird eine Excel Datei in einen OLEContainer geladen und in unserer Oberfläche Angezeigt.

mit folgendem Quellcode verden die Symbolleisten von Excel ausgeblendet.

Delphi-Quellcode:

{============================================================================
  Methode : FormatExcelformular
  ---------------------------------------------------------------------------
  Zweck :  Ausblenden der Menueleiste sowie der Eingabeleiste von Excel,
  ---------------------------------------------------------------------------
  Bemerkung: Beim schließen von Excel Grundeinstellung wieder
             hergestellen
=============================================================================}
procedure FormatExcelFormular(aExcel : OleVariant); Var
   i      : Integer;
Begin
  Setlength(FARRCommandBars,0);
  aExcel.CommandBars['Worksheet Menu Bar'].Enabled  := TRUE;
  aExcel.DisplayFormulaBar                          := FALSE;
  for i := 2 to aExcel.CommandBars.Count do
  begin
    if aExcel.CommandBars.Item[i].Visible then
    begin
      Setlength(FARRCommandBars, 1 + Length(FARRCommandBars));
      FARRCommandBars[High(FARRCommandBars)] := aExcel.CommandBars.Item[i].Name;  // merken der ursprünglichen Einstellungen 
      aExcel.CommandBars[FARRCommandBars[high(FARRCommandBars)]].Enabled := TRUE;
      aExcel.CommandBars[FARRCommandBars[high(FARRCommandBars)]].Visible := FALSE;
    end;
  end;
end;

Meine Versuche mit dem nachfolgenden Quelltext die Einstellungen von Excel wieder herzustellen scheitern komplett und ich
kann mir nicht erklären woran das liegt.

Delphi-Quellcode:

{============================================================================
  Methode : ResetExcelFormular
  ---------------------------------------------------------------------------
  Zweck :  Grundeinstellung von Excel wieder herstellen
  ---------------------------------------------------------------------------
=============================================================================}
procedure ResetExcelFormular(aExcel: OleVariant); Var
   i   : Integer;
Begin
  aExcel.CommandBars['Worksheet Menu Bar'].Enabled  := TRUE;
  aExcel.DisplayFormulaBar                          := TRUE;
  for i := low(FARRCommandBars) to high(FARRCommandBars)do
  begin
    aExcel.CommandBars[FARRCommandBars[i]].Visible := TRUE;   // hier sollten die Symbolleiten doch sichtbar sein oder?
    aExcel.CommandBars[FARRCommandBars[i]].Enabled := TRUE;
  end;
  Setlength(FARRCommandBars,0);
  FARRCommandBars:=NIL;
end;

Weiß vieleicht jemand was ich da falsch mache??
Vielen Dank bereits jetzt für die Tipps oder Antworten

Gruß

Michael