Re: Makros für alle Excelanwendungen verfügbar mac
12.06.2003 08:53:51
MarcoW
Hallo,ich habe ein Add-Ins geschrieben, um die Fußzeile automatisch einzurichten:
Sub MenüErstellenFZ()
Dim Dlg As Object
Dim MN As Object
For Each MN In MenuBars(xlWorksheet).Menus
If MN.Caption = "Fusszeile" Then
MN.Delete
End If
Next
Set Dlg = MenuBars(xlWorksheet)
Dlg.Menus.Add "Fusszeile", 10
Dlg.Menus("Fusszeile").MenuItems.Add "Erstellen", "Erstellen_Fußzeile"
End Sub
Sub Erstellen_Fußzeile()
ActiveSheet.PageSetup.CenterHeader = ""
ActiveSheet.PageSetup.LeftFooter = _
"&""ArialSparkasse,Regular""&8Firma" & Chr(10) & "Abteilung"
ActiveSheet.PageSetup.CenterFooter = "&8" & ActiveWorkbook.FullName
ActiveSheet.PageSetup.RightFooter = "&8 Seite &P von &N" & Chr(10) & Format("&D", "dd.mm.yyyy") & " , " & Format("&T", "hh.mm")
ActiveSheet.PageSetup.PrintGridlines = False
ActiveSheet.PageSetup.CenterHorizontally = True
End Sub
Den Code in ein neues Modul einfügen und dann als xla speichern.
Viel Spass!
Gruß MarcoW