grafiken löschen

Forumthread: grafiken löschen

grafiken löschen

01.08.2003 17:37:10

Rick

Hallo
ich möchte mit einem Makro alle grafiken in einem Tabellenblatt löschen die sich zw. A1 und E20 befinden !!
Kann mir da jemand weiterhelfen. Ich bekomms einfach nicht hin.
Danke Rick

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: grafiken löschen

01.08.2003 18:56:35

K.Rola
AW: grafiken löschen

01.08.2003 22:09:43

HerbertH
AW: grafiken löschen

04.08.2003 09:46:56

Rick

AW: grafiken löschen

01.08.2003 18:56:35

K.Rola

Hallo Rick,
Option Explicit


Sub löschen()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Top < [e20].Top Then sh.Delete
Next
End Sub

Gruß K.Rola

AW: grafiken löschen

01.08.2003 22:09:43

HerbertH

Hallo Rick,
Ich habe das Makro von Rola noch etwas ergänzt...

Gruß Herbert

Forumthread: grafiken löschen

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread