Fusszeile
29.01.2007 15:09:25
Ludicla
ich benutze in einem Makro den Code:
Sub Fusszeile()
On Error Resume Next
Dim Blatt As Object
For Each Blatt In Worksheets
Blatt.PageSetup.LeftFooter = "Netzstrategie"
Blatt.PageSetup.RightFooter = " " & Environ("UserName") & Chr(10) & Date
Blatt.PageSetup.CenterFooter = ActiveWorkbook.FullName & Chr(10) & Blatt.Name
Next Blatt
End Sub
um die Fusszeilen individuell zu steuern.
Wie bring es hin, damit ich die Schriftgröße auf 7,5 u.u.U Fettdruck in allen Zeilen ändern kann.
Anzeige