Mit Script ein Bild in die Kopfzeile eines EXCEL-Dokuments setzen - wie???

[bezi27]

Hallo zusammen,

beim Suchen in den Foren habe ich zu meiner Freude festgestellt, dass hier auch viele Experten zum Thema "Script und EXCEL" vertreten sind.

Darum traue ich mich auch folgende Frage zu stellen:
Wie um alles in der Welt bekomme ich ein Bild in die Kopfzeile einer EXCEL-Tabelle - und das mit Script?

Ich habe folgende Zeilen (mit vielen un-erfolgreichen Abwandlungen) probiert:

[...]

Dim PageSetup As Variant
      Set pageSetup = .ActiveSheet.PageSetup   
      PageSetup.CenterHeaderPicture.Filename = "C:\Sample.jpg"
      PageSetup.CenterHeader = "&G"

[...]

Das Bild existiert natürlich, das Ergebnis ist aber, dass in der Kopfzeile gar nichts steht.
Alle anderen Einstellungen - wie z.B. Text in der Fusszeile u.ä. - funktionieren problemlos.

Weiß jemand Rat?

Herzlichsten Dank im Voraus!

(leicht verzweifelt) 

Bezi27

[Axel]

Ich habe das selbst mal probiert und keine Lösung gefunden. Das scheint so ein Punkt zu sein, der über die COM-Schnittstelle nicht funktioniert, warum auch immer.

Als Lösungsalternativen bieten sich zwei Möglichkeiten an.

1. Du legst Vorlage(n) an in der(denen) du die Grafik bereits in die Kopfzeile eingebunden hast. Diese kannst du dann aus Notes heraus öffnen und weiter bearbeiten.

2. Du legst eine Vorlage an und fügst dort ein Makro ein, dass die Grafik in die Kopfzeile einfügt. Dieses Makro kannst du dann mit der Run-Methode aus dem Application-Objekt von Excel aufrufen. Der Methode lassen sich auch Parameter übergeben. So wäre es bspw. möglich den Dateinamen der Grafik zu übergeben und das Ganze so flexibel zu gestalten.

Axel

[m3]

Die Arbeitsblätter ev. gruppiert?
http://support.microsoft.com/kb/279305/

Welche Excel-Version? AFAIK geht das erst ab Excel 2002 (Office XP).
http://support.microsoft.com/kb/q288964/

Ev. hilft Dir der Thread weiter:
http://www.tutorials-win.com/WordVBA/replace-image-107113/

[Axel]

Martin, dass hat aber alles relativ wenig mit der COM-Schnittstelle zu tun. Wenn man die Grafik händisch in Excel einfügt, bzw. mit einem Excel-Makro, dann fiunktioniert das Ganze ja.

Nur wenn der Code über die COM-Schnittstelle ausgeführt wird, dann bleibt die Kopfzeile leer.


Axel

[bezi27]

Herzlichen Dank für die Antworten - ich werd's also mit einer EXCEL-Vorlage lösen!
(und ich habe "gehofft", ich bin nur zu dämlich dazu - dabei ist's die Schnittstelle  )

Der Vollständigkeit halber: es handelt sich um EXCEL 2003 und es ist wie Axel angemerkt hat - im EXCEL funktioniert das Bild in der Kopfzeile problemlos, mit Scipt geht's nicht ...


Danke nochmals!

Bezi27

[Demian]

Moin,moin,

ich habe mir das eben mal angeschau und dabei festgestellt, dass aus dem &G ein &O in Excel wird (mittels msgbox pagesetup.leftheader in der erzeugten Tabelle ausgelesen). Warum auch immer. Habe jetzt einige Buchstaben ausprobiert und bei &I wird ein &G in Excel draus.

Also mit folgendem Code lässt sich das Ganze aus Notes heraus auch lösen:

Code

	Dim ex
	
	Set ex = createobject("Excel.Application")
	
	ex.workbooks.add
	ex.visible = True
	
	ex.activesheet.pagesetup.leftheaderpicture.filename = "H:\plugins\fahne.bmp"
	ex.activesheet.pagesetup.leftheader = "&I"

Was mich nur irritiert, ist das die Umwandlung scheinbar willkürlich vorgenommen wird. Kann da jedenfalls nicht wirklich ein System erkennen. Aus Word heraus findet diese Umwandlung nicht statt.


Gruß
Demian

[bezi27]

Hallo Demian,

fazinierend - das funktioniert!!!

Aus die Idee, dass hier eine Umwandlung der Parameter erfolgen könnte bin ich wirklich nicht gekommen - aber man sieht man wieder: MS macht's möglich 

Allerherzlichsten Dank für die Mühe!

Grüsse

Bezi27