löschen von shapes

Bild

Betrifft: löschen von shapes
von: Gerhard
Geschrieben am: 19.11.2003 14:26:26

Hallo !

wenn ich mit dem Macrorecorder aufnehme, entsteht folgender Code:

~begin~


Sub test
ActiveSheet.Shapes("Picture 10").select
Selection.Cut
End Sub

~end~

Es befinden sich mehrere solcher pictures auf der Tabelle.
Es sind mir die Nummern der pictures nicht bekannt.
Frage:
wie kann ich mit einer Schleife oder sonst wie, alle sich auf der Tabelle befindlichen pictures löschen ?

Herzlichen Dank für Eure Hilfe !

Liebe Grüsse
GerhardD
Bild


Betrifft: AW: löschen von shapes
von: Reinhard
Geschrieben am: 19.11.2003 14:28:39

Hi Gerhard,
nimm das folgende Makro.
Gruß
Reinhard


Sub Loesche()
    Dim bild As Shape
    For Each bild In ThisWorkbook.Worksheets("Tabelle1").Shapes()
        bild.Delete
    Next bild
'ThisWorkbook.Worksheets("Tabelle1").UsedRange.ClearContents
End Sub



Bild


Betrifft: AW: löschen von shapes
von: GerhardD
Geschrieben am: 19.11.2003 14:38:01

Hallo Reinhard !

Da kann man sich ja noch nicht einmal um die eigene Achse drehen und schon ist die Antwort da!

Vielen lieben Dank !

Liebe Grüsse
GerhardD


Bild


Betrifft: AW: löschen von shapes
von: GerhardD
Geschrieben am: 19.11.2003 15:06:26

Hallo Reinhard !

nach For each bild ....
geht das Makro sofort zu End Sub.
Es kommt keine Fehlermeldung und es geschieht auch nichts.
Weißt Du nochmals Rat ?

Liebe Grüsse
GerhardD


Bild


Betrifft: an Nayus und Reinhard
von: GerhardD
Geschrieben am: 19.11.2003 15:25:03

Hallo Ihr Beiden !

das Makro von Nayus funktioniert !!!

Nochmals herzlichen Dank und
liebe Grüsse

GerhardD


Bild


Betrifft: AW: löschen von shapes
von: Nayus
Geschrieben am: 19.11.2003 14:31:57

Hi,

Folgendes Makro löscht alle Bilder im aktiven Blatt:


Sub loesche_bilder()
For i = 1 To ActiveSheet.Shapes.Count
  ActiveSheet.Shapes(1).Cut
Next i
End Sub



Gruß,
Nayus


Bild


Betrifft: AW: löschen von shapes
von: GerhardD
Geschrieben am: 19.11.2003 14:39:50



Hallo Nayus !

Wie ich auch schon zu Reinhard sagte: man kann sich ja noch nicht einmal um die eigene Achse drehen und schon ist die Antwort da!

Vielen lieben Dank !

Liebe Grüsse
GerhardD


Bild

Beiträge aus den Excel-Beispielen zum Thema " löschen von shapes"