Excelsheet mit Wasserzeichen versorgen!!
13.07.2016 15:39:10
Baeda
aus einer Access-Anwendung erzeuge ich mit dem Excel-Object automatisiert ein Excel-Sheet. Auf dem Sheet soll ein Wasserzeichen hinterlegt werden.
Gelöst habe ich es in Excel in dem ich die Seitenansicht aufrufe, dann eine Kopfzeile einfüge, und in die Kopfzeile eine Graphik (*.png) einfüge. Wenn ich dann die Kopfzeile verlasse, wird perfekt das Wasserzeichen angezeigt.
Die Befehle habe ich mir mit dem Macro-Recorder aufgezeichnet, und versucht in Access ablaufen zu lassen - Hier die Befehle
.Worksheets.Add
.ActiveWindow.View = xlPageLayoutView
.ActiveSheet.PageSetup.CenterHeaderPicture.FileName = _
"S:\OFF2007_Projekte\MACDEAT\GRAPHIK\Wasserzeichen_Übersicht1.png"
With .ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&Z&I"
.RightHeader = ""
.LeftFooter = "XX YYY ZZ Frau WWWWWW, 089/555 555555"
.CenterFooter = ""
.RightFooter = "&D"
.LeftMargin = .Application.InchesToPoints(0.196850393700787)
.RightMargin = .Application.InchesToPoints(0.196850393700787)
.TopMargin = .Application.InchesToPoints(0.196850393700787)
.BottomMargin = .Application.InchesToPoints(0.196850393700787)
.HeaderMargin = .Application.InchesToPoints(0)
.FooterMargin = .Application.InchesToPoints(0)
.Zoom = 66
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
.Range("A3").Select
.ActiveWindow.View = xlNormalView
Soweit so gut, nur bei diesem Befehl .CenterHeader = "&Z&I"
wird im Excelsheet aus der Variablen &Z ein Dateipfad und keine Graphik eingefügt.
Hat einer eine Idee, wie dieses Problem zu lösen ist.
Danke füe Euere Bemühungen.
Servus Baeda