ich suche nach einer Lösung, eine Grafikdatei automatisch in mehrere Excel-Dateien und die dortigen Arbeitsblätter zu platzieren. Konkret geht es darum, dass auf jedem Arbeitsblatt ein Logo platziert werden muss. Dieses soll immer in der gleichen Zelle stehen (z.B. A1). Da die erste Zeile im Arbeitsblatt u.U. schon Inhalte hat müsste vor der Platzierung des Logos einfach eine neue, unformatierte Zeile automatisch eingefügt werden.
In den Excel-Dateien befindet sich immer nur ein Arbeitsblatt. Jedoch ist die Bezeichnung der Arbeitsblätter unterschiedlich.
Ich stelle mir das so vor, dass man die Excel-Dateien, in welche auf dem ersten Arbeitsblatt das Logo platziert werden soll, alle in einem Verzeichnis liegen. Die gewünschte Grafik (Logo) kann man ja auch noch in dieses Verzeichnis werfen.
Kann mir hier bitte jemand helfen? Schon mal jetzt vielen Dank.
ich suche nach einer Lösung, eine Grafikdatei automatisch in
mehrere Excel-Dateien und die dortigen Arbeitsblätter zu
platzieren.
Zu welchem Zeitpunkt soll denn diese Grafik eingefügt werden?
-Beim Öffnen der Datei?
-Vor dem Drucken der Datei?
Ein möglicher Code sieht z.B. so aus:
If Not IsEmpty(ActiveSheet.Range("A1")) Then 'Steht etwas in der Zelle?
ActiveSheet.Range("A1").Insert' Falls Ja, Zeile einfügen
End If
ActiveSheet.Range("A1").Select
ActiveSheet.Pictures.Insert("C:\MeinBild.jpg").Select
Mußt Du dann nicht noch die Zeilenhöhe der neu eingefügten Zeile festlegen?