EXCEL VBA - Per Makro Grafiken in Kopf- und Fußzeile einfügen?

Question

Hallo zusammen,

ich möchte mittels Makro je eine Grafik in die Kopf- und in die Fußzeile einfügen.

Die Größe der Grafiken ist fix, muss also nicht geändert werden.

Ich habe versucht, ein Makro dafür aufzuzeichnen, aber das klappt nicht.

Hat da jemand eine Idee bzw. schon Erfahrung bzw. eine Lösung dafür?

Grüß

Peter

Answer 1

Hi Peter,

nach diesem Prinzip:

     With ActiveSheet.PageSetup
         .LeftHeaderPicture.Filename = "E:\Z_Test\Hans.jpg"
         .LeftHeader = "&G"
         .LeftFooterPicture.Filename = "E:\Z_Test\Werner.jpg"
         .LeftFooter = "&G"
     End With

Bis später, Karin

Answer 2

Hallo Karin,

wie geil einfach ist das denn?!

Der Makrorekorder hat gefühlte 120 Codezeilen rausgeworfen und damit klappte es nicht.

Vielen Dank!

Gruß

Peter

P.S.:
Könntest Du mir auch verraten, wie ich die beiden via Makro wieder löschen kann?

Answer 3

Hallo nochmal,

das Löschen per Code habe ich selbst herausgefunden.
Einfach den gleichen Code, anstatt der Angabe der Grafikdatei einfach eine leere Zeichenfolge, also

     With ActiveSheet.PageSetup
         .LeftHeaderPicture.Filename = ""
         .LeftHeader = "&G"
         .LeftFooterPicture.Filename = ""
         .LeftFooter = "&G"
     End With

Gruß

Peter

Answer 4

Hi Peter,

es reicht dieses:

     With ActiveSheet.PageSetup
         .LeftHeader = ""
         .LeftFooter = ""
     End With

Bis später, Karin

Answer 5

Hallo Karin,

das ist ja noch besser. Danke!

Gruß

Peter