Remove images which are behind an image

[trustmywords]

I want to remove images that are hidden behind an particular image. Can anybody create macro to delete all the hidden images behind main image. No other images must be deleted if other parts of excel has images.

thanks

 

[Domenic]

Try...

Option Explicit
 
Sub DeleteHiddenPics()
 
    Dim oMainPic As Picture
    Dim oPic As Picture
    Dim rRng As Range
 
'   Change the name of the picture accordingly
    Set oMainPic = ActiveSheet.Pictures("Picture 1")
 
    Set rRng = Range(oMainPic.TopLeftCell, oMainPic.BottomRightCell)
 
    For Each oPic In ActiveSheet.Pictures
        If oPic.Name <> oMainPic.Name Then
            If oPic.ZOrder < oMainPic.ZOrder Then
                If Application.Union(rRng, Range(oPic.TopLeftCell, oPic.BottomRightCell)).Address = rRng.Address Then
                    oPic.Delete
                End If
            End If
        End If
    Next oPic
 
End Sub

 

[trustmywords]

Domenic

ths is the error message i am getting if i run macros.

"unable to get pictures property of the worksheet class"

I dont know to write macro.

Please provide another solution.

thanks

 

[Domenic]

Did you change the name of the main picture specified in the following line?

Set oMainPic = ActiveSheet.Pictures("[COLOR=red]Picture 1[/COLOR]")