Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Bilder in Range("A1:A10") löschen....

Alle Bilder in Range("A1:A10") löschen....
28.11.2005 16:45:13
R.Schmitt
Hallo,
ich möchte gerne alle in einem bestimmten (markierten)
Zellbereich befindlichen Bilder löschen.
Mein erster Ansatz war, dies über
For Each item In ActiveSheet.Shapes
If item.TopLeftCell.Address =
usw.
zu lösen.
Wobei eben topleft in den markierten Bereich fallen müßte,
damit das Bild gelöscht wird.
Geht´s nicht auch eleganter ?
Ist jetzt mehr eine Stilfrage - aber trotzdem.
Vielen Dank
R.Schmitt

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Bilder in Range("A1:A10") löschen....
28.11.2005 17:14:00
Nepumuk
Hallo R.,
das Shapeobjekt ist ein Objekt des Tabellenobjektes und nicht eines Zellobjektes. Darum geht das nicht anders.
Gruß
Nepumuk

AW: Alle Bilder in Range("A1:A10") löschen....
ransi
Hallo
"For Each item In ActiveSheet.Shapes
If item.TopLeftCell.Address =
usw."
statt usw. kommt dann aber irgendwas mit intersect() oder?
du wolltest doch nicht jede zelle einzeln abklappern?
ransi
AW: Alle Bilder in Range("A1:A10") löschen....
29.11.2005 09:19:07
R.Schmitt
Hallo Ransi, Hallo Nepumik,
und schon mal vielen Dank für die Beiträge.
Ja - jede einzelne Zelle wollte ich nun doch
nicht abklappern **grins**
deswegen den markierten Bereich komplett als
solchen nach Shapes zu durchsuchen.
Ich habe es jetzt mit Intersect gemacht und
es tut´s auch. Nachdem ich gestern noch in
der Referenz gewühlt und doch nix gefunden habe.
Wär´ja auch zu schön gewesen, um wahr zu sein,
daß mal etwas, das ich mir in meinem kleinen
Köpfchen so elegant denke, auch tatsächlich
geht.
Euch noch einen schönen Tag
R.Schmitt
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige