Delete Pictures within a range VBA

[borski88]

Sub ClearData()
Dim Pic As Object
  'Clears Data for Name, Login, Badge Number, etc
  
    Range( _
        "K2:N3,D2:G3,D9:G10,K9:N10,D16:G17,K16:N17,K23:N24,D23:G24" _
        ).ClearContents
    
    'Deletes Pictures from file
    
    For Each Pic In ActiveSheet.Pictures
    Pic.Delete
    Next Pic

End Sub

Is there a way to only delete pictures within A1:O30?

 

[Domenic]

Try...

    For Each Pic In ActiveSheet.Pictures
        If Not Intersect(Pic.TopLeftCell, Range("A1:O30")) Is Nothing Then
            Pic.Delete
        End If
    Next Pic

By the way, 'Pic" can be declared as Picture. Then you'll also have available the Inteli-Sense.

Hope this helps!

 

[borski88]

Try...

    For Each Pic In ActiveSheet.Pictures
        If Not Intersect(Pic.TopLeftCell, Range("A1:O30")) Is Nothing Then
            Pic.Delete
        End If
    Next Pic

By the way, 'Pic" can be declared as Picture. Then you'll also have available the Inteli-Sense.

Hope this helps!

Thank you, it worked perfectly!

 

[Domenic]

You're very welcome!

Cheers!

 

[ttee22]

Hi

i Tried the exact code and it does nothing for me. idk if its because of my image format (GIF)

Sheets("Print PG").Select
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
If Not Intersect(pic.TopLeftCell, Range("A85:K101")) Is Nothing Then
pic.Delete
End If

 

[Domenic]

Hi

i Tried the exact code and it does nothing for me. idk if its because of my image format (GIF)

Sheets("Print PG").Select
Dim pic As Picture
For Each pic In ActiveSheet.Pictures
If Not Intersect(pic.TopLeftCell, Range("A85:K101")) Is Nothing Then
pic.Delete
End If

The top left corner of the image cannot extend beyond the top or left side of the target range. To allow this to happen, try...

If Not Intersect([COLOR=#FF0000]Range(pic.TopLeftCell, pic.BottomRightCell)[/COLOR], Range("A85:K101")) Is Nothing Then

 

[ttee22]

Unfortunately it's still not working :/

 

[Domenic]

Unfortunately it's still not working :/

Can you please confirm exactly what it is you're trying to do?

 

[ttee22]

Can you please confirm exactly what it is you're trying to do?

I have a daily report were I need to delete and replace the pic image within Range("A85:K101"). There are other images within the sheet I have to keep.

regards

 

[Domenic]

I have a daily report were I need to delete and replace the pic image within Range("A85:K101"). There are other images within the sheet I have to keep.

regards

Have a look at a sample workbook...

https://1drv.ms/x/s!Atmin3kqXqL0by1e0UK2OlUcdDc