Eradicate the clip art scourge! :mad:

[nigelandrewfoster]

Hi, You would make me very happy indeed if you could help me with a simple problem (for those in the know, I am sure) I have been wrestling with on and off for ages, but without success. I simply want to highlight a range on my worksheet and run a macro which removes every piece of word art/shape etc from that range. Any ideas? Thanks in advance for your interest in this post.
Nigel Foster

 

[nigelandrewfoster]

Hi, You would make me very happy indeed if you could help me with a simple problem (for those in the know, I am sure) I have been wrestling with on and off for ages, but without success. I simply want to highlight a range on my worksheet and run a macro which removes every piece of word art/shape etc from that range. Any ideas? Thanks in advance for your interest in this post.
Nigel Foster

This attempt stops at the red line with "Object does not support this property or method":

Sub Shape_Removal()

Dim Sh As Shape, Delete_Range As Range
Set Delete_Range = Selection
    With ActiveSheet
       For Each Sh In .Shapes
          [COLOR="Red"] If Not Application.Intersect(Sh.TopLeftCell, .Delete_Range) Is Nothing Then Sh.Delete[/COLOR]
      
        Next Sh
    End With
End Sub

 

[MickG]

This worked:-

Dim Sh As Shape, Delete_Range As Range
Set Delete_Range = Selection
  With ActiveSheet
       For Each Sh In .Shapes
           If Not Intersect(Sh.TopLeftCell, Delete_Range) Is Nothing Then
                Sh.Delete
           End If
      Next Sh
    End With

Possibly because the "Delete_Range" Parent is the active sheet.

 

[nigelandrewfoster]

I am extremely happy. Some of the macros I have written in the past have led to a "build up" of shapes, on top of each other, so many that it's actually been slowing down my computer. Thanks so much. Don't follow the ""Delete_Range" Parent" comment, but it worked!