Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Logo in Kopfzeile skalieren

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
Anzeige
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

Anzeige
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

64 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige