Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Grafik in Kopfzeile per Vba

Grafik in Kopfzeile per Vba
Manuel
Hallo Alle zusammen,
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Grafik in Kopfzeile per Vba
03.12.2010 17:49:23
Christian
Hallo Manuel,
Sub Makro1()
With ActiveSheet.PageSetup
.RightHeaderPicture.Filename = "D:\test.png"
.RightHeader = "&G"
End With
End Sub
erzählt mir der Makrorecorder
Gruß
Christian
AW: Grafik in Kopfzeile per Vba
05.12.2010 13:54:57
Manuel
Fungiert Super
Danke!!!!
AW: Grafik in Kopfzeile per Vba
05.12.2010 13:56:26
Manuel
Fungiert Super
Danke!!!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Grafik in Kopfzeile per VBA einfügen


Schritt-für-Schritt-Anleitung

Um eine Grafik in die Kopfzeile deiner Excel-Datei einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es, das Bild von einem bestimmten Pfad in die Kopfzeile zu importieren. Hier sind die Schritte:

  1. Öffne die Excel-Datei, in der du das Logo oder Bild in die Kopfzeile einfügen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke im Projektfenster auf DieseArbeitsmappe.

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
       ActiveSheet.PageSetup.PrintArea = ""
       With ActiveSheet.PageSetup
           .RightHeaderPicture.Filename = Range("Veranstaltungsdaten!B1").Value
           .RightHeader = "&G"
           .LeftHeader = Range("Veranstaltungsdaten!B2").Value
           .CenterHeader = "&""Comic Sans MS,Standard""" & Range("Veranstaltungsdaten!B3").Value
       End With
    End Sub
  5. Stelle sicher, dass in der Zelle B1 der Pfad zu deinem Bild eingetragen ist (z. B. D:\test.png).

  6. Schließe den VBA-Editor und teste den Druckvorgang, um zu sehen, ob das Bild korrekt in der Kopfzeile angezeigt wird.


Häufige Fehler und Lösungen

  • Fehler: Excel Kopfzeile Bild einfügen geht nicht

    • Stelle sicher, dass der Pfad zum Bild korrekt ist und die Datei existiert.
  • Fehler: Excel Kopfzeile wird nicht angezeigt

    • Überprüfe die Einstellungen deiner Excel-Druckvorschau. Möglicherweise ist die Kopfzeile nicht aktiviert.
  • Fehler: Excel Grafik in Kopfzeile verkleinern

    • Nutze die Methode .RightHeaderPicture und stelle die Größe des Bildes manuell im VBA-Code ein.

Alternative Methoden

Eine alternative Methode, um das Excel Logo in die Kopfzeile einzufügen, besteht darin, die Benutzeroberfläche zu nutzen, anstatt VBA:

  1. Gehe zu Seitenlayout.
  2. Klicke auf Drucktitel.
  3. Wähle die Registerkarte Kopf- und Fußzeile.
  4. Klicke auf Benutzerdefinierte Kopfzeile.
  5. Wähle die Position (links, zentriert, rechts) und klicke auf Grafik einfügen.
  6. Suche dein Bild und füge es hinzu.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Grafik in der Kopfzeile einfügen kannst:

  1. Excel Logo in Kopfzeile einfügen:

    • Trage in die Zelle B1 den Pfad zu deinem Logo ein (z. B. C:\Bilder\excel_logo.png).
  2. Grafik in Kopfzeile positionieren:

    • Verwende die Parameter .CenterHeader, .LeftHeader und .RightHeader, um die Position des Bildes festzulegen.
  3. Grafik in Kopfzeile verkleinern:

    • Du kannst die Grafik skalieren, indem du die Eigenschaften im VBA entsprechend anpasst.

Tipps für Profis

  • VBA Header optimieren: Nutze Variablen, um den Pfad zu speichern und mehrfach zu verwenden.
  • Kopfzeile vergrößern: Wenn du mehr Platz benötigst, passe die Höhe der Kopfzeile in den Seitenlayout-Einstellungen an.
  • Automatisierung: Implementiere ein Makro, das beim Öffnen der Datei automatisch die Kopfzeile aktualisiert.

FAQ: Häufige Fragen

1. Wie kann ich die Kopfzeile in Excel vergrößern? Du kannst die Kopfzeile vergrößern, indem du auf Seitenlayout gehst und die Einstellungen für die Kopfzeile anpasst.

2. Wie kann ich die Grafik in der Kopfzeile skalieren? Nutze im VBA-Code die Methode .RightHeaderPicture und passe die Größe über die Eigenschaften an.

3. Was mache ich, wenn mein Bild nicht angezeigt wird? Überprüfe den Pfad zur Bilddatei und stelle sicher, dass das Bildformat von Excel unterstützt wird (z. B. PNG oder JPG).

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige