Hallo,
mit diesem Code lösche ich in einem Tabellenblatt Bilder.
Ich möchte aber auch erreichen das Pfeile oder eingefügte WordArt Schriften gelöscht werden.
Dazu muss sicherlich der Typ Shapes angepasst werden. Momentan steht ja nur Pictures drin. Könnt ihr mir bitte helfen? Bekomme es alleine nicht hin
MfG René
For Each shShape In Sheets("Problemblatt2").Shapes
If shShape.Type = msoPicture And _
shShape.Top > Range("C4").Top And shShape.Top shShape.Delete
Next shShape
Range("C4:AG25").Select
Selection.ClearContents
Range("C4").Select