Excel Forum

How do I delete images in a specific range

Milena Stevanov

New Member

Members

Forum Posts: 2

Member Since:
May 5, 2018

Offline

May 5, 2018 - 5:13 am

I have a macro that imports data from a selected file. The data includes some images. The problem I am having is if i have data and images already in my document, and I go to import new data, the images do not delete and simply get pasted on top of each other. I wrote code to select the cells and clear them, but it doesn't clear the images.

I think the solution is to put some code at the beginning that can select the images in the cell range and delete them, before the new data is imported.

I came across a solution that Selects all images in the worksheet and deletes them, But I have other images that I need to keep.

Is is possible to tell it to select all images in a specific range of cells?

See Answer

SunnyKow

Puchong, Malaysia

VIP

Members

Trusted Members

Forum Posts: 1432

Member Since:
June 25, 2016

Offline

May 5, 2018 - 10:15 am

Hi Milena

Welcome to the forum.

Just select the required range and then run the macro below.

Sub DeletePictures()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Not Application.Intersect(Sh.TopLeftCell, Range(Selection.Address)) Is Nothing Then
Sh.Delete
End If
Next Sh
End Sub

Hope this helps.

Sunny

Answers Post

Milena Stevanov

New Member

Members

Forum Posts: 2

Member Since:
May 5, 2018

Offline

May 8, 2018 - 12:16 am

Thank you! The Code that ended up working is this


Sub DeleteImage()

Dim pic As Picture

ActiveSheet.Unprotect

For Each pic In ActiveSheet.Pictures
    If Not Application.Intersect(pic.TopLeftCell, range("H10:R24")) Is Nothing Then
        pic.Delete
    End If

Next pic

End Sub

SunnyKow

Puchong, Malaysia

VIP

Members

Trusted Members

Forum Posts: 1432

Member Since:
June 25, 2016

Offline

May 8, 2018 - 10:47 am

Hi Milena

Glad to know you got it solved.

Sunny

tolu adeogba

New Member

Members

Forum Posts: 1

Member Since:
January 19, 2019

Offline

January 19, 2019 - 1:54 am

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