AW: Nachtrag
21.05.2014 22:51:58
Ewald
Hallo,
hier die vorgegebenen Kürzel
&L Richtet nachfolgende Zeichen links aus.
&C Zentriert das nachfolgende Zeichen.
&R Richtet nachfolgende Zeichen rechts aus.
&E Schaltet Doppelt Unterstreichen ein oder aus.
&X Schaltet Hochstellen ein oder aus.
&Y Schaltet Tiefstellen ein oder aus.
&B Schaltet Fettdruck ein oder aus.
&I Schaltet Kursivdruck ein oder aus.
&U Schaltet Unterstreichen ein oder aus.
&S Schaltet Durchstreichen ein oder aus.
&D Druckt das aktuelle Datum.
&T Druckt die aktuelle Zeit.
&F Druckt den Namen des Dokuments.
&A Druckt den Namen des Registers ( Tabellenname )
einer Arbeitsmappe.
&P Druckt die Seitenzahl.
&P+Zahl Druckt die Seitenzahl zuzüglich der angegebenen Zahl.
&P-Zahl Druckt die Seitenzahl abzüglich der angegebenen Zahl.
&& Druckt ein einzelnes kaufmännisches Und-Zeichen.
&"Schriftart" Druckt die nachfolgenden Zeichen in der angegebenen
Schriftart. Schriftart muss von Anführungszeichen
eingeschlossen sein.
&nn Druckt die nachfolgenden Zeichen im angegebenen
Schriftgrad. Geben Sie eine zweistellige Zahl an, um den
Schriftgrad anzugeben.
&N Druckt die Gesamtanzahl der Seiten eines Dokumentes.
allerdings können diese auch in Kombination vorkommen, deshalb ist es besser diese Zeile
Select Case Mid(str, 2, 1)
durch diese zu ersetzen
Select Case Replace(str, "&", "")
die verwendeten Kombinationskürzel müssen dann auch in die Funktion rein
Sollte eine Grafik vorhanden sein, darf das G nicht in die Funktion, das muß vorher abgefangen werden
als Beispiel Kopfzeile/Links
If Replace(L,"&", "") = "G" Then
Label1.Picture = LoadPicture(ActiveSheet.PageSetup.LeftHeaderPicture.Filename)
Else
Label1.Picture = LoadPicture("")
End If
Das Bild darf aber kein png sein
Gruß Ewald