Logo in Kopfzeile skalieren

Forumthread: Logo in Kopfzeile skalieren

23.10.2015 12:10:05

Andi

Hallo,
habe ein kleines Problem.
Ich möchte ein Logo in allen Tabellen einer Arbeitsmappe einfügen und diese auf grösse Skalieren, bekomme aber immer eine Fehlermeldung.

Sub KopfUndFuß()
Dim Tabelle As Worksheet
Application.ScreenUpdating = False
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.RightHeaderPicture.Filename = _
"C:\Temp\LOGO.jpg"
.Height = 34.5
.Width = 82.5
Tabelle.PageSetup.Right.Header = "&G"
End With
With Tabelle.PageSetup
.LeftHeader = "Firmenname"
.CenterHeader = "Tabellenname &A"
.LeftFooter = "Pfad : " & ActiveWorkbook.FullName
.CenterFooter = ""
.RightFooter = "Seite &P von &N"
End With
Next Tabelle
Set Tabelle = Nothing
Application.ScreenUpdating = True
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Logo in Kopfzeile skalieren

23.10.2015 12:18:04

Rudi
AW: Logo in Kopfzeile skalieren

23.10.2015 12:49:34

Andi
hatte ich auch korrigiert. owT

23.10.2015 12:52:44

Rudi
Punkt zwischen Right und Header? owT

23.10.2015 15:32:00

Michael

AW: Logo in Kopfzeile skalieren

23.10.2015 12:18:04

Rudi

hallo,
du versuchst ja auch die Dimensionen des Pagesetup-Objekts zu ändern.

     With Tabelle.PageSetup
With .RightHeaderPicture
.Filename = "C:\Temp\LOGO.jpg"
.Height = 34.5
.Width = 82.5
End With
.RightHeader = "&G"
End With

Gruß
Rudi

AW: Logo in Kopfzeile skalieren

23.10.2015 12:49:34

Andi

Hallo,
habe trotzdem eine Fehlermeldung "Objekt unterstützt diese Eigenschaft oder die Methode nicht"

Sub KopfUndFuß()
Dim Tabelle As Worksheet
Application.ScreenUpdating = False
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
With .RightHeaderPicture
.Filename = "C:\Temp\LOGO.jpg"
.Height = 34.5
.Width = 82.5
End With
.Right.Header = "&G" 'Fehler wird hier angezeigt
End With
With Tabelle.PageSetup
.LeftHeader = "Firmenname"
.CenterHeader = "Tabellenname &A"
.LeftFooter = "Pfad : " & ActiveWorkbook.FullName
.CenterFooter = ""
.RightFooter = "Seite &P von &N"
End With
Next Tabelle
Set Tabelle = Nothing
Application.ScreenUpdating = True
End Sub

hatte ich auch korrigiert. owT

23.10.2015 12:52:44

Rudi

Punkt zwischen Right und Header? owT

23.10.2015 15:32:00

Michael

Schritt-für-Schritt-Anleitung

Um ein Logo in der Kopfzeile Deiner Excel-Arbeitsmappe zu skalieren, kannst Du den folgenden VBA-Code verwenden. Dieser Code fügt das Bild in die Kopfzeile ein und passt die Größe an.

Öffne Deine Excel-Arbeitsmappe.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle im Menü "Einfügen" die Option "Modul".

Kopiere den nachstehenden VBA-Code in das Modul:

Sub KopfUndFuß()
    Dim Tabelle As Worksheet
    Application.ScreenUpdating = False
    For Each Tabelle In ActiveWorkbook.Worksheets
        With Tabelle.PageSetup
            With .RightHeaderPicture
                .Filename = "C:\Temp\LOGO.jpg"
                .Height = 34.5
                .Width = 82.5
            End With
            .RightHeader = "&G"
        End With
        With Tabelle.PageSetup
            .LeftHeader = "Firmenname"
            .CenterHeader = "Tabellenname &A"
            .LeftFooter = "Pfad : " & ActiveWorkbook.FullName
            .CenterFooter = ""
            .RightFooter = "Seite &P von &N"
        End With
    Next Tabelle
    Set Tabelle = Nothing
    Application.ScreenUpdating = True
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.

Mit diesem Code kannst Du das Logo in der Kopfzeile skalieren. Achte darauf, den Pfad zu Deinem Logo anzupassen.

Häufige Fehler und Lösungen

Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder die Methode nicht"
- Ursache: Diese Fehlermeldung tritt häufig auf, wenn die Zeile .Right.Header = "&G" nicht korrekt implementiert ist. Stelle sicher, dass Du die Header-Bilder richtig definierst, indem Du den Code von Rudi verwendest:
```
With Tabelle.PageSetup
    With .RightHeaderPicture
        .Filename = "C:\Temp\LOGO.jpg"
        .Height = 34.5
        .Width = 82.5
    End With
    .RightHeader = "&G"
End With
```
Grafik wird nicht angezeigt
- Überprüfe, ob der Dateipfad zur Grafik korrekt ist und ob die Datei existiert.

Alternative Methoden

Wenn Du keine VBA verwenden möchtest, kannst Du das Logo manuell in die Kopfzeile einfügen und die Größe anpassen:

Gehe zu "Einfügen" > "Kopfzeile und Fußzeile".
Klicke auf "Bild" und wähle Dein Logo aus.
Nach dem Einfügen kannst Du das Bild markieren und die Ecken ziehen, um die Größe anzupassen.

Praktische Beispiele

Beispiel 1: Logo in der rechten Kopfzeile hinzufügen und skalieren.
Beispiel 2: Verkleinern eines Logos in der Kopfzeile auf 50% seiner ursprünglichen Größe.
Beispiel 3: Anpassung der Höhe der Kopfzeile, um mehr Platz für das Logo zu schaffen:
```
Tabelle.PageSetup.HeaderHeight = 40
```

Tipps für Profis

Verwende das .CenterHeaderPicture-Objekt, wenn Du das Logo in der Mitte der Kopfzeile platzieren möchtest.
Achte darauf, die Grafiken im richtigen Format (z.B. JPG, PNG) und in der passenden Größe für die Kopfzeile zu verwenden.
Experimentiere mit der Höhe und Breite für die beste Darstellung.

FAQ: Häufige Fragen

1. Wie kann ich die Größe der Kopfzeile in Excel ändern?
Du kannst die Höhe der Kopfzeile mit dem folgenden Befehl anpassen:

Tabelle.PageSetup.HeaderHeight = 30 ' Höhe auf 30 Punkte setzen

2. Kann ich mehrere Logos in der Kopfzeile hinzufügen?
Ja, Du kannst verschiedene Logos in die linke, mittlere und rechte Kopfzeile einfügen, indem Du die entsprechenden .LeftHeader, .CenterHeader und .RightHeader Eigenschaften verwendest.

Beliebteste Forumthreads (12 Monate)

Logo in Kopfzeile skalieren

Forumthread: Logo in Kopfzeile skalieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial