VBA: Schriftfarbe in Fußzeile ändern
16.10.2015 15:28:46
Tim
ich bin ziemlich neu bei VBA und hoffe, hier kann mir jemand weiterhelfen.
Ich verwende den folgenden Code um eine dynamische Fußzeile mittels einer Zell-Referenz zu generieren.
Das funktioniert soweit, ich finde jedoch keinen Weg, dabei auch die Schriftfarbe unter Verwendung eines HEX-Codes zu ändern, z.B. #0000FF, nur als Beispiel.
Ich habe probiert, &0000FF vor meine Schriftgröße zu setzen, dann wird es jedoch nicht als Schriftfarbe erkannt und bringt stattdessen die Schriftgröße durcheinander.
Kann mir jemand damit helfen ?
Mein bisheriger Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strHeader As String
Dim strFooter As String
strHeader = Worksheets(4).Range("F2").Value
strFooter = Worksheets(4).Range("F6").Value
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Regular""&10" & strHeader
.LeftFooter = "&""Arial,Regular""&8" & strFooter
End With
End Sub
Vielen Dank im Voraus,
Tim