Fußzeile per Macro ändern
16.08.2006 18:30:02
Peter
der Peter hat noch ein kleines Problem.
Ich ändere per Macro den Namen von 12 Arbeitsblättern (tabelle 1, tabelle2 usw)
in der Fußzeile
Das funktioniert aber nur sehr sehr langsam.
Kann man das ändern des Namens der Fußzeile beschleunigen.
Der Code abgekürzt auf 2 tabellen ist:
Tastenkombination: Strg+Umschalt+X
'
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Nr.11").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveWindow.Visible = False
Range("D5").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
With ActiveChart.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "Firma"
.LeftFooter = "&D"
.CenterFooter = ""
.RightFooter = "name des Erstellers"
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
.ChartSize = xlFullPage
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.BlackAndWhite = False
.Zoom = 100
End With
ActiveWindow.Visible = False
Range("D5").Select
Sheets("Nr.10").Select
Range("D6").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
With ActiveChart.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "Firma"
.LeftFooter = "&D"
.CenterFooter = ""
.RightFooter = "Name des Erstellers"
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.118110236220472)
.ChartSize = xlFullPage
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.BlackAndWhite = False
.Zoom = 100
End With
ActiveWindow.Visible = False
Range("E4").Select
Sheets("Eingabe").Select
Range("D14").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub