remove Excel drawings 2

[barbola]

Is there a way to remove arrows that have been drawn on a spreadsheet all at the same time - I mean there are about 11,000 of them.

thanks

Thanks!
Barb E.

 

[bluedragon2]

This will clear all lines and arrows in a worksheet:

For Each sp In ActiveSheet.Shapes
With sp
Select Case .Type
Case msoLine
.Delete
Case Else
End Select
End With
Next



Blue

If I wasn't Blue, I would just be a Dragon...

 

[SkipVought]

Blue,

Good one! ==> *

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[bluedragon2]

Got to give you one too, I made it with your help



Blue

If I wasn't Blue, I would just be a Dragon...

 

[Dreamboat]

Just a quick note:

Ctrl+G.
Choose Special.
Choose Objects.
Hit delete.

But that'll delete ALL objects on the worksheet.

Anne Troy

http://www.amazon.com/exec/obidos/tg/detail/-/0972425845/104-9778384-2391158?v=glance&s=books

 

[SkipVought]

Good tip, but he asked to delete ONLY ARROW objects.

Actually BLUE's code deleted LINE objects.

To delete ONLY ARROWS...

    For Each sh In ActiveSheet.Shapes
        With sh
            If .Type = msoLine Then
                With .DrawingObject
                    Select Case .ArrowHeadStyle
                        Case Is > 0     'line with arrowhead
                            sh.Delete
                        Case Else       'just a line
                    
                    End Select
                End With
            End If
        End With
    Next

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[barbola]

Thanks for all the tips. I'm a "she" and I don't know how to use VBA in Excel?

Barb.

Thanks!
Barb E.