VBA/Excel 2013: Grafikdatei in Kopfzeile einfügen

Cannonball

Admiral Special
Mitglied seit
10.04.2003
Beiträge
1.176
Renomée
9
Standort
Markkleeberg
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
 
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
 
Zurück
Oben Unten