habe mich schonmal durchgekämpft und mir ein paar Lösungen hier aus dem Forum zusammengesucht.
Scheitere aber daran in dieses Skript ein Grafik import zu integrieren.
Wollte diese so schreiben das ich in einer Zelle den Pfad der Grafik eintrage.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = Range("Veranstaltungsdaten!B1")
.CenterHeader = "&""Comic Sans MS,Standard""" & Range("Veranstaltungsdaten!B2")
.RightHeader = Range("Veranstaltungsdaten!B3")
.LeftFooter = Range("Veranstaltungsdaten!B4")
.CenterFooter = Range("Veranstaltungsdaten!B5")
.RightFooter = Range("Veranstaltungsdaten!B6")
.LeftMargin = Application.InchesToPoints(0#)
.RightMargin = Application.InchesToPoints(0#)
End With
End Sub
Viele Dank für alle Antworten vorab.
Mfg Manuel