VBA/Excel 2013: Grafikdatei in Kopfzeile einfügen

Cannonball

Vice Admiral Special
★ Themenstarter ★
Mitglied seit
10.04.2003
Beiträge
638
Renomée
9
Standort
Markkleeberg
System
Mein Laptop
Acer Aspire V3-772G-747a8G1TMakk
Details zu meinem Desktop
Prozessor
AMD Ryzen 5 1600, 6x 3.20 GHz @ 3.4GHz
Mainboard
ASUS PRIME X370 Pro
Kühlung
Scythe Mugen 5 (PCGH-Edition)
Speicher
G.Skill RipJaws V schwarz DIMM 16GB, DDR4-3200, CL16-18-18-38 (F4-3200C16S-16GVK)
Grafikprozessor
GIGABYTE GeForce GTX 1060 Windforce OC 3G
Display
HP 27ea 27 Zoll, 1920x1080 Pixel
SSD
500 GB Samsung 970 EVO Plus
HDD
2000GB Seagate BarraCuda ST2000DM006 64MB 3.5" SATA 6Gb/s
Optisches Laufwerk
TSSTCorp DVD-ROM SH-D 163B, Sony Optiarc DVD-RW AD-7240S
Soundkarte
Realtek S1220A 8-Kanal High Definition Audio (Onboard)
Gehäuse
Casetek CS-1018 BLM
Netzteil
550 Watt EVGA SuperNOVA G3 Modular 80+ Gold
Betriebssystem
Windows 10 Pro x64
Webbrowser
Mozilla Firefox 79.0
Verschiedenes
Super Flower Fan Master SF-609, Lüftersteuerung 5.25" 4-Kanal, Cooler Master CM Storm Devastator II
n'Abend allerseits,

ich habe ein Excel-Makro, das für neue Arbeitsblätter ein paar Grundeinstellungen vornimmt. Jetzt habe ich das erweitert, es soll in den linke Bereich der Kopfzeile eine Grafikdatei von der Festplatte einfügen.

Dazu habe ich ein Makro aufgezeichnet, und dann den nach meiner Meinung relevanten Teil in mein Makro eingebaut, das jetzt so aussieht:

Code:
Sub Blatteinstellungen()
'
' Blatteinstellungen Makro
' Setzt Währungsformat und Zeilenhöhe 15 für das ganze Arbeitsblatt
'
' Tastenkombination: Strg+Umschalt+s
'
     ActiveSheet.Cells.NumberFormat = "#,##0.00 $"
     ActiveSheet.Cells.RowHeight = 15
     ActiveSheet.Cells.ColumnWidth = 12
     ActiveWindow.View = xlPageLayoutView
     ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
        "C:\Users\DE-13953\Downloads\PwC_fl_30mmh_c.jpg"
     Range("A1").Select
End Sub
Problem: der Teil mit dem Bild einfügen funktioniert nicht, ich bekomme aber (leider) auch keine Fehlermeldung. Jemand eine Idee, was da falsch läuft?

Gruß,
Cannonball
 

Cannonball

Vice Admiral Special
★ Themenstarter ★
Mitglied seit
10.04.2003
Beiträge
638
Renomée
9
Standort
Markkleeberg
System
Mein Laptop
Acer Aspire V3-772G-747a8G1TMakk
Details zu meinem Desktop
Prozessor
AMD Ryzen 5 1600, 6x 3.20 GHz @ 3.4GHz
Mainboard
ASUS PRIME X370 Pro
Kühlung
Scythe Mugen 5 (PCGH-Edition)
Speicher
G.Skill RipJaws V schwarz DIMM 16GB, DDR4-3200, CL16-18-18-38 (F4-3200C16S-16GVK)
Grafikprozessor
GIGABYTE GeForce GTX 1060 Windforce OC 3G
Display
HP 27ea 27 Zoll, 1920x1080 Pixel
SSD
500 GB Samsung 970 EVO Plus
HDD
2000GB Seagate BarraCuda ST2000DM006 64MB 3.5" SATA 6Gb/s
Optisches Laufwerk
TSSTCorp DVD-ROM SH-D 163B, Sony Optiarc DVD-RW AD-7240S
Soundkarte
Realtek S1220A 8-Kanal High Definition Audio (Onboard)
Gehäuse
Casetek CS-1018 BLM
Netzteil
550 Watt EVGA SuperNOVA G3 Modular 80+ Gold
Betriebssystem
Windows 10 Pro x64
Webbrowser
Mozilla Firefox 79.0
Verschiedenes
Super Flower Fan Master SF-609, Lüftersteuerung 5.25" 4-Kanal, Cooler Master CM Storm Devastator II
So, ich habe jetzt rausgefunden, warum das nicht funktioniert hat. Da es ja doch einige Hits gab, schreib ich das mal kurz hier rein:

Bevor Excel in der "Page Layout-Ansicht eine oder mehrere Einstellungen (Commands) entgegennehmen kann, muss man die Druckerkommunikation abschalten:

Code:
ActiveWindow.View = xlPageLayoutView
Application.PrintCommunication = False
 
Oben