Excel Kopfzeile formatieren

[Sidi61]

Hallo zusammen,

habe das Problem jetzt gelöst, ist allerdings fast der ganze Samstag dabei drauf gegangen

Problem ist, dass die Steuerzeichen die der Macro Recorder ausgiebt nicht denen entsprechen die bei Delphi verwendet werden müssen.

so ziemlich kurz vor der Erschöpfung kam mir eine zündende Idee

ich habe in Excel den Text formatiert und dann mit Delphi ausgelesen

Delphi-Quellcode:

procedure TFormExcel.Button2Click(Sender: TObject);
var Datei : string;
begin
  Datei := 'D:\Eigene Dateien\temp\Test';
  if Excel_Starten(Datei,'',0,false) then
  begin
    Arbeitsblatt_aktivieren(1,5);
    showmessage(ExcelApp.ActiveWorkbook.ActiveSheet.PageSetup.RightFooter);
    Excel_Schliessen;
  end;
end;

Das Ergebnis ist wie folgt

ExcelApp.ActiveWorkbook.ActiveSheet.PageSetup.RightFooter := '&"Cooper Black,Fett"&18&T&MFF0000rechte Fußzeile, Text CooperBlack, Size 10, Fett, untersctrichen, rot'; d.h. die Formatierung der Farbe erfolgt nicht mit &K sondern mit &M

Diese Vorgehensweise werde ich jetzt sicher noch öfter brauchen

Gruß
Sidi61