Logo in Kopfzeile skalieren

Bild

Betrifft: Logo in Kopfzeile skalieren
von: Andi
Geschrieben am: 23.10.2015 12:10:05

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

Bild

Betrifft: AW: Logo in Kopfzeile skalieren
von: Rudi Maintaire
Geschrieben am: 23.10.2015 12:18:04
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

Bild

Betrifft: AW: Logo in Kopfzeile skalieren
von: Andi
Geschrieben am: 23.10.2015 12:49:34
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


Bild

Betrifft: hatte ich auch korrigiert. owT
von: Rudi Maintaire
Geschrieben am: 23.10.2015 12:52:44


Bild

Betrifft: Punkt zwischen Right und Header? owT
von: Michael
Geschrieben am: 23.10.2015 15:32:00


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Logo in Kopfzeile skalieren"