AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Excel Kopfzeile formatieren

Ein Thema von Sidi61 · begonnen am 22. Okt 2016 · letzter Beitrag vom 22. Okt 2016
Antwort Antwort
Sidi61

Registriert seit: 13. Jun 2006
97 Beiträge
 
Delphi XE5 Professional
 
#1

Excel Kopfzeile formatieren

  Alt 22. Okt 2016, 14:23
Hallo zusammen,

es gelingt mir leider nicht einen Text mit Formatierung in Kopf- und Fußzeilen des Excelblattes einzufügen.

Einfach nur Text ist kein Problem:
ExcelApp.ActiveWorkbook.ActiveSheet.PageSetup.LeftHeader := 'Linke Kopfzeile, Text Standard'; Um heraus zu bekommen wie Excel den Text formatiert habe ich das mit dem Macro Recorder aufgezeichnet. Dabei ist folgendes rausgekommen:

.RightFooter = "&""Arial Black,Kursiv""&10&U&KFF0000rechte Fußzeile, Text ArialBlack, Size 10, kursiv, untersctrichen, rot"

Wenn ich das aber wie folgt übergebe...
ExcelApp.ActiveWorkbook.ActiveSheet.PageSetup.RightFooter := '"&""Arial Black,Kursiv""&10&U&KFF0000rechte Fußzeile, Text ArialBlack, Size 10, kursiv, untersctrichen, rot"'; ...wird der Text nicht formatiert.

Ich habe verschiedene Varianten ausprobiert, mal ' anstatt " oder ganz ohne ' und ", hat aber leider nichts davon funktioniert.

Nachtrag:
Bei folgendem Befehlt filtert Excel die Formatierungsinformationen raus und stellt nur den eigentlichen Text ein - die Formatierung wird jedoch nicht umgesetzt:
ExcelApp.ActiveWorkbook.ActiveSheet.PageSetup.RightFooter := '&"Arial Black"&"Kursiv"&"14"&"U"&"KFF0000"rechte Fußzeile, Text ArialBlack, Size 10, kursiv, untersctrichen, rot';
Weiß jemand wie ich den Formatierungscode übergeben muss damit dieser angewendet wird

Gruß
Sidi61

Geändert von Sidi61 (22. Okt 2016 um 14:48 Uhr)
  Mit Zitat antworten Zitat
Sidi61

Registriert seit: 13. Jun 2006
97 Beiträge
 
Delphi XE5 Professional
 
#2

AW: Excel Kopfzeile formatieren

  Alt 22. Okt 2016, 22:02
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
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz