Ergebnis 1 bis 2 von 2
  1. Beitrag #1
    Themenstarter
    Vice Admiral
    Special
    Vice Admiral
    Avatar von Cannonball
    • Mein System
      Notebook
      Modell: Acer Aspire V3-772G-747a8G1TMakk
      Desktopsystem
      Prozessor: AMD Ryzen 5 1600, 6x 3.20 GHz @ 3.4GHz
      Mainboard: ASUS PRIME X370 Pro
      Kühlung: Scythe Mugen 5 (PCGH-Edition)
      Arbeitsspeicher: G.Skill RipJaws V schwarz DIMM 16GB, DDR4-3200, CL16-18-18-38 (F4-3200C16S-16GVK)
      Grafikkarte: GIGABYTE GeForce GTX 1060 Windforce OC 3G
      Display: HP 27ea 27 Zoll, 1920x1080 Pixel
      Festplatte(n): 2000GB Seagate BarraCuda ST2000DM006 64MB 3.5" SATA 6Gb/s
      Optische Laufwerke: 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(e): Windows 10 Pro x64
      Browser: Mozilla Firefox 63.0.3
      Sonstiges: Super Flower Fan Master SF-609, Lüftersteuerung 5.25" 4-Kanal Cooler Master CM Storm Devastator II

    Registriert seit
    10.04.2003
    Ort
    Markkleeberg
    Beiträge
    629
    Danke Danke gesagt 
    10
    Danke Danke erhalten 
    1

    VBA/Excel 2013: Grafikdatei in Kopfzeile einfügen

    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
    +++ Last.fm +++ Plattensammlung +++

    "A live body and a dead body contain the same number of particles. Structurally, there's no discernible difference. Life and death are unquantifiable abstracts. Why should I be concerned?" -- Dr. Manhattan

  2. Beitrag #2
    Themenstarter
    Vice Admiral
    Special
    Vice Admiral
    Avatar von Cannonball
    • Mein System
      Notebook
      Modell: Acer Aspire V3-772G-747a8G1TMakk
      Desktopsystem
      Prozessor: AMD Ryzen 5 1600, 6x 3.20 GHz @ 3.4GHz
      Mainboard: ASUS PRIME X370 Pro
      Kühlung: Scythe Mugen 5 (PCGH-Edition)
      Arbeitsspeicher: G.Skill RipJaws V schwarz DIMM 16GB, DDR4-3200, CL16-18-18-38 (F4-3200C16S-16GVK)
      Grafikkarte: GIGABYTE GeForce GTX 1060 Windforce OC 3G
      Display: HP 27ea 27 Zoll, 1920x1080 Pixel
      Festplatte(n): 2000GB Seagate BarraCuda ST2000DM006 64MB 3.5" SATA 6Gb/s
      Optische Laufwerke: 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(e): Windows 10 Pro x64
      Browser: Mozilla Firefox 63.0.3
      Sonstiges: Super Flower Fan Master SF-609, Lüftersteuerung 5.25" 4-Kanal Cooler Master CM Storm Devastator II

    Registriert seit
    10.04.2003
    Ort
    Markkleeberg
    Beiträge
    629
    Danke Danke gesagt 
    10
    Danke Danke erhalten 
    1
    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
    +++ Last.fm +++ Plattensammlung +++

    "A live body and a dead body contain the same number of particles. Structurally, there's no discernible difference. Life and death are unquantifiable abstracts. Why should I be concerned?" -- Dr. Manhattan

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •