Office: (Office 2007) Grafik in Kopfzeile / Fußzeile skalieren

Hallo Excelaner,

ich möchte ein Dokument erstellen und dabei das Firmenlogo in die Kopfzeile integrieren. Allerdings ist das Logo recht groß und wird so auch im Dokument angezeigt.

Gibt es eine Möglichkeit, dass ich diese Grafik skalieren kann, z.B. auf 25% der Orignalgröße?

Vielen Dank für Eure Hilfe.

Gruß
Christina

:)

 

Hallo Christina,

die Formatierungsmöglichkeiten in Kopf- und Fußzeilen sind recht spärlich bis gar nicht vorhanden. Aber du kannst natürlich das Bild selbst in einem Bildbearbeitungsprogramm auf die gewünschte Größe schrumpfen.

Gruß Ingolf

 

Hallo Ingolf,

vielen Dank für die Rückmeldung. Das wollte ich umgehen. Gibt es vielleicht Möglichkeiten per VBA?

Gruß
Christina

 

Hallo Christina,

das Problem bei Grafiken in der Kopf- oder Fußzeile ist ja, dass die Grafik nicht in der Exceldatei mit gespeichert wird. In der Exceldatei wird nur ein Verweis auf die auf Festplatte gespeicherte Grafik gespeichert. Daher gibt es auch keine Möglichkeit, in der Exceldatei selbst etwas zu ändern - egal, ob mit Excel Bordmitteln oder per VBA. Man muss die auf Festplatte gespeicherte Grafik selbst verändern. Leider.

Gruß Ingolf

 

Hallo Christina,
hatte das gleiche Problem und hab auch ne VB-Lösung.
leider bin ich im Moment nicht an meinem Rechner, sodass ich Dir jetzt nicht helfen kann. Sobald ich zu Hause bin, schau ich nach und poste Dir meinen Lösungsansatz zu
Hab bitte Geduld

Gruß
De babba

 

Moin, eisbaer205,

Grafik einfügen und dann bearbeiten (rechtes Symbol in der Leiste ab Excel2002) - die Werte für Höhe und Breite bzw. die Skalierung können angepasst werden.

 

Hallo Christina,
Hier mein Code in dem ich eine Grafik in eine Fusszeile einfüge und formatiere (Größe einstelle) Das script fügt die Grafik auf allen Blättern ein (deshalb ne for each Schleife).
-------------------------------
Sub FussGrafikRein()
Dim Grafik As Variant
Dim Seite As Worksheet
On Error Resume Next
DoEvents
Application.ScreenUpdating = False
Grafik = Application.GetOpenFilename("Grafikdateien (*.jpg), *.jpg")
If Grafik = False Then GoTo ende
For Each Seite In Worksheets

Seite.Visible = True
Seite.Activate
ActiveSheet.PageSetup.LeftFooterPicture.Filename = Grafik
With ActiveSheet.PageSetup.LeftFooterPicture
.Height = 23.25
.Width = 69
End With
' ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&G"
End With Sheets("Hello").Visible
Seite.Visible = xlSheetVeryHidden
Next Seite
ende:
Application.ScreenUpdating = True
FrmAdmin.Show
End Sub
--------------------------------------------

Ich hoffe, Du kommst klar damit.
Gib mir doch nen kleines Feedback

Gruß
DeBabba