Kopfzeile (mit Grafik!) kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Martin!
Damit Du weisst was ich meine, nachstehend der Auszug aus einem Code den ich geschrieben habe und dabei dafür sorge das in der Kopf-/Fußzeile eine Grafik beim Ausdruck miteingefügt wird:
On Error GoTo Logofehlt
Sheets(StrName).PageSetup.CenterFooterPicture.Filename = _
"C:\InsuEasy\Verwaltung\bmp\InsuEasy_140_17.bmp"
On Error GoTo OhneBild
Sheets(StrName).PageSetup.CenterHeaderPicture.Filename = _
"C:\InsuEasy\Verwaltung\bmp\Firmenlogo_463_180.bmp"
With Sheets(StrName).PageSetup
.LeftHeader = "" ' "Analyse vom " & Range("Übers!B6")
.CenterHeader = "&G"
.RightHeader = "" ' Range("Übers!B7")
.LeftFooter = "Druckdatum &D"
.CenterFooter = "&G"
.RightFooter = "&P von &N"
End With
In dem Code siehsts Du deutlich das ich erst zu Beginn Grafiken aus einem Ordner einlese, diese dabei aber direkt einem Sheet zuordnen muß damit dann im nachfolgend PageSetup das "&G" bei CenterFooter und CenterHeader weiß welche Grafik es zuordnen muß.
Und genau so wird es bei Dir sein. Wobei wahrscheinlich die Grafik nicht aus einem Ordner geladen wird. Aber egal, irgendwo muss es eine Codezeile geben die für das Sheet die Grafik lädt/zur Verfügung stellt.
Wenn Du diese Codezeile findest, kann Du sie einfach kopieren und einfügen und dann mit dem Namen des neuen Sheets versehen und damit die Grafik auch für das neue Sheet zur Verfügung stellen.
Gruß
Rainer

@ MichaV
Wenn Du per Hand für die Kopfzeile oder Fußzeile eine Grafik einstellst, dann hast Du nur die Möglichkeit aus einem Ordner eine Datei auszuwählen und diese dann einfügen zu lassen.
Womit dann das Problem das die Grafik nicht existiert irrelevant wäre, denn dann bräuchte man ja nur zu gucken aus welchem Ordner und welche Grafik geladen wurde.
Und wenn es über die Methode gehen würde, wie sollte Excel dann die Grafik in der Kopf-/Fußzeile ausdrucken wenn die Datei nicht mehr existiert? ;)
Wenn also bei Kopfzeile oder Fußzeile eine Grafik mit ausgedruckt wird, die man nicht mehr über das Drop-Down-Feld findet, bzw. die sich nicht auf dem Computer befindet dann kann sie eben nur per VBA gesetzt sein. Oder hast Du noch eine andere Möglichkeit wie Excel eine Grafik ausdruckt die es auf dem Computer gar nicht mehr gibt? Würde mich dann brennend interessieren.
Deswegen komme ich drauf, dass der Bezug zur Grafik irgendwo in dem VBA Code zu finden ist, vor allem das es eben einen gibt. Bzw. diese Grafik per VBA geladen wurde und dann aber nicht mit Bezug zu einem Ordner wie in meinem Code sich einliesst, sondern schlicht in der Mappe abgespeichert ist.
Aber auch hier muß irgendwo eine Zuordnung der Grafik zum Sheet erfolgen, da ansonsten die Anweisung &G bei CenterHeader oder CenterFooter nicht wüsste worauf sie zugreifen muss.
Wie schon gesagt, mir fällt keine andere Variante ein wie man sonst eine Grafik die es auf dem PC nicht gibt mit ausdrucken kann.
Ich gehe zumindest davon aus, dass diese Grafik beim Ausdruck immer noch erscheint, da ich ansonsten nicht wüsste wieso der Threadersteller krampfhaft versuchen würde den Ausdruck für Kopf-/Fußzeile kopieren zu wollen um diese Grafik in einem anderen Sheet einzubauen. Würde ja keiner wollen, wenn der Ausdruck die Grafik auch nicht mehr beinhaltet. ;)
Oder liege ich da jetzt so verkehrt mit meinen Überlegungen?
Gruß
Rainer

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

152 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopfzeile (mit Grafik!) kopieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

152 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread