Logo in Fußzeile
16.02.2019 18:03:38
Jan
ich habe ein Makro welches mir in die linke Fußzeile ein Logo einfügt. Das ganze Funktioniert auch soweit gut.
Wenn ich nun das Makro in einem anderen Makro starten will mit Call LogoEinfügen funktioniert es nicht mehr. Es wird kein Logo eingefügt und in der Rechten Fußzeile wird die Seitenzahl durch den Dateipfad ersetzt.
Der Fehler tritt wie gesagt nur auf wenn ich das makro automatisch Starte, wenn ich es Manuel Starte funktioniert es.
Gibt es dafür eine Erklärung bzw Lösung?
LG Jan
Sub LogoEinfügen()
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
With ActiveSheet.PageSetup.LeftFooterPicture
.Filename = ActiveWorkbook.Path & "\Logo.png"
.Height = 19.5
.Width = 129
End With
ActiveSheet.PageSetup.LeftFooter = "&G"
Next
End Sub