how can I delete images in an specific column? using vba

Question

how can I delete images in an specific column? using vba

Digitalización Chambi 1

I'm using this code:

Sub delete()     
     
For Each shp In ActiveSheet.Shapes     
        shp.delete     
Next     
     
End Sub

Can I change this code or do I need to use another code?

1 answer

Your answer

Answer 1

Dillon Silzer 57,831 Volunteer Moderator

Hi @Digitalización Chambi

Please see the following from https://forum.ozgrid.com/forum/index.php?thread/1228094-delete-shapes-in-specific-column/ (answered by jolivanes)

Sub Maybe()  
Dim ws As Worksheet, shp As Shape  
Set ws = ActiveSheet    '<---- Change to proper sheet name if so desired  
For Each shp In ws.Shapes  
If Not Intersect(shp.TopLeftCell, Range("A2:C100")) Is Nothing Then shp.Delete  
Next shp  
End Sub

Change your range in the code above.

------------------------------

If this is helpful please accept answer.

abiyyah 1 Reputation point

2022-09-23T23:08:53.677+00:00

Thanks @Dillon Silzer , I have same issue and tried it and it works

Share via

how can I delete images in an specific column? using vba

1 answer

Your answer