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