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

[Chemiker]

Hallo michael.cohrs,

Versuch mal mit:

aExcel.CommandBars['Worksheet Menu Bar'].Reset; die Menüleiste zurückzusetzen.

Bis bald Chemiker

[michael.cohrs]

Vielen Dank für die schnelle Antwort,

werden dadurch denn auch die Ursprünglichen Einstellungen des Anwenders in Excel wieder hergestellt?
Das Problem ist ja das jeder Anwender so seine eigenen Einstellungen in Excel vornehmen kann und ich
möchte diese nach Beenden meiner Applikation wieder herstellen, so wie der Anwender es sich eingerichtet hat


Viele Grüße

Michael

[Chemiker]

Hallo michael. Cohrs,

Zitat von michael. Cohrs:

werden dadurch denn auch die Ursprünglichen Einstellungen des Anwenders in Excel wieder hergestellt?

Nein. Die Menüleiste wird mit diesem Befehl in ihren Originalzustand zurückgesetzt.

Ob, es eine einfache Möglichkeit Excel Anwenderspezifisch zurückzusetzen ist mir jetzt nicht bekannt.

Ein Weg wehre vor jeder Änderung sich den Ausgangszustand zu merken und zum Schluss in den alten Zustand zurückzusetzen.

Edit: Was mir noch einfällt eigene Schaltflächen kann man noch das Argument: Temporary:= TRUE mitgeben, dann bleiben die Schaltflächen nur so lange erhalten wie die Applikation läuft.

Bis bald Chemiker

[michael.cohrs]

Hallo Chemiker,

das ist ja genau das was ich mit obigem Quelltext versuche, in dem Array FARRCommandBars
merke ich mir ja die ursprünglichen Einstellungen


Viele Grüße

Michael

[Chemiker]

Hallo michael. Cohrs,

Ausblenden:

Delphi-Quellcode:

aExcel.CommandBars['Worksheet Menu Bar'].Enabled  := FALSE; 
aExcel.DisplayFormulaBar                          := FALSE;

Einblenden:

Delphi-Quellcode:

aExcel.CommandBars['Worksheet Menu Bar'].Enabled  := TRUE; 
aExcel.DisplayFormulaBar                          := TRUE;

Edit: Wenn es nur um das ein- und Ausblenden geht braucht man nicht mehr anzugeben.

Bis bald Chemiker