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

Set HWH = ActiveSheet.Pictures.Insert("F:\img\stop

Set HWH = ActiveSheet.Pictures.Insert("F:\img\stop
09.09.2004 10:46:13
ray
Hallo,
ich hab mich mal wieder völlig verprogrammiert.
Mit nachfolgenden Code habe ich beim Durchlauf einer Tabelle in jeder Zeile ein Bild im sheet abgelegt. Da ich Hwh nur am Ende vom Prog geschrieben habe, liegtz jetzt fast 1000 mal dieses Bild übereinander im Sheet. Zum deleten will ich natürl nicht 1000 mal anklicken.
Wie kann ich die Img aus einem sheet mit code löschen?
Danke und Gruß aus Hamburg bei blauen Himmel
Ray
'show img
Dim HWH As Object
Set HWH = ActiveSheet.Pictures.Insert("F:\img\stop.bmp")
'Application.Wait (Now + TimeSerial(0, 0, 2))
HWH.Delete

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Set HWH = ActiveSheet.Pictures.Insert("F:\img\stop
Hans
Das Bild sollte doch eigentlich in der Shapes-Auflistung stehen und darüber gelöscht werden können?
Gruß HW
hier die Lösung - wenns interessiert
09.09.2004 13:31:03
ray
Danke HW, shapes war nix.
hab mir diese Lösung gebastelt:
x = 242
For i = 1 To 300
x = x - 1
ActiveSheet.Shapes("Picture " & x).Select
Selection.Delete
next i
Gruß Ray
Next i
Anzeige

92 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige