Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1216to1220
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

Hintergrundbild in alle Tabellen einfügen

Hintergrundbild in alle Tabellen einfügen
Hans
Hallo liebe Experten.
Ich stehe mal wieder vor einem Problem.
Und zwar habe ich eine Excel Datei mit mehreren Tabellenblättern.
Nun möchte ich in jedem Tabellenblatt ein Hintergrundbild haben.
Dies habe ich über Format/Blatt/Hintergrund auch hinbekommen.
Ich würde jedoch gerne das ganze über ein Makro realisieren.
Und zwar wollte ich über worksheets.activate alle Blätter aktivieren und über
ActiveSheet.SetBackgroundPicture Filename:="C:\......" Die Bilder einfügen.
Soweit klappt es auch nur das er mir das Bild ausschließlich im ersten Tabellenblatt einfügt.
Kann mir bitte jemand weiterhelfen.
Vielen Dank.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Hintergrundbild ...
14.06.2011 10:53:57
Matthias
Hallo
machs per Schleife
Dim X&
For X = 1 To Worksheets.Count
Worksheets(X).SetBackgroundPicture Filename:="C:\..."
Next
Userbild
AW: Hintergrundbild ...
14.06.2011 10:57:22
Hans
Danke für die schnelle Antwort.
Bekomms net hin.
Bringt mir einen Laufzeitfehler.
Hier Code wie ich ihn getestet hab:
Sub neu()
Dim X&
For X = 1 To Worksheets.Count
Worksheets(X).SetBackgroundPicture Filename:="C:\C:\Dokumente und Einstellungen\ltroeger\ _
Eigene Dateien\vw_zeichen3.jpg"
Next
End Sub
Danke nochmals.
Anzeige
Filename ist falsch. owT
14.06.2011 11:04:19
Rudi
AW: Filename ist falsch. owT
14.06.2011 11:07:42
Hans
Oh man! Ich Dubbel!
Danke.
Hätte es jetzt auch gehabt mit:
Option Explicit
Sub Bildeinfuegen()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Activate
ActiveSheet.SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\ltroeger\Eigene Dateien\vw_zeichen3.jpg"
Next i
End Sub
LG Hans.
und dann noch ohne Activate!
14.06.2011 11:14:05
Rudi
Hallo,
Sub Bildeinfuegen()
Dim i As Integer
For i = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(i).SetBackgroundPicture Filename:= _
"C:\Dokumente und Einstellungen\ltroeger\Eigene Dateien\vw_zeichen3.jpg"
Next i
End Sub

Gruß
Rudi
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige