Abend Kai,
ich würde die Bilder ein/ausblenden, nicht löschen/hinzufügen.
Woran scheitert's denn beim Ein/Ausblenden ?
Übrigens, ob das folgende auch mit xl97 funktioniert, weiß ich nicht. Ich habe hier nur noch xl2k.
Obwohl xl2k eigentlich alle Grafikobjekte mittlerweile via Shapes anspricht, und Dinge wie "Pictures" als veraltet gelten erzeugt der Makrorekorder beim "Einfügen-Grafik-Aus Datei" nach wie vor dieses:
ActiveSheet.Pictures.Insert "dateiname"
Ansonsten kannst Du via Shapes darauf zugreifen:
"ActiveSheet.Shapes.Count" liefert die Anzahl der Grafik-Objekte.
Via "ActiveSheet.Shapes(index)" kommst Du an einzelne Elemente ran.
Wobei Index eine Zahl zwischen 1 und ActiveSheet.Shapes.Count ist.
"ActiveSheet.Shapes(index).type" liefert Dir den Objekttyp (z.B. msoPicture= 13 für ein Bild)
Via "ActiveSheet.Shapes(index).Visible" kannst Du die Teile ein/ausblenden.
Gruß, Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP