How to link images to cells, so that when filter is applied images will also get hidden.

You will need to name your images and maybe create a table - i then used

=VLOOKUP(E3,PicTbl,1,0)

to get the name of the image i wanted to appear and then used this code to call only that image to be placed in cell W50. I also named the images on the sheet which I didn't want to appear/disapper Bob so the code ignored them

Private Sub Worksheet_Calculate()
    Dim oPic As Object
    Dim shpTemp As Shape
    Dim strName As String
        
     For Each shpTemp In Me.Shapes
        If shpTemp.Type = msoPicture Then
            If StrComp(Left(shpTemp.Name, 3), "BOB") = 0 Then
                ' ignore Bob's!
            Else
                shpTemp.Visible = False
            End If
        End If
    Next
    
    With Range("W50   ")
        strName = Trim(.Value)
        If Len(strName) > 0 Then
            Set oPic = Me.Pictures(strName)
            oPic.Visible = True
            oPic.Top = .Top
            oPic.Left = .Left
        End If
    End With
    
End Sub

You will need to name your images and maybe create a table - i then used

=VLOOKUP(E3,PicTbl,1,0)

to get the name of the image i wanted to appear and then used this code to call only that image to be placed in cell W50. I also named the images on the sheet which I didn't want to appear/disapper Bob so the code ignored them

Private Sub Worksheet_Calculate()
    Dim oPic As Object
    Dim shpTemp As Shape
    Dim strName As String
        
     For Each shpTemp In Me.Shapes
        If shpTemp.Type = msoPicture Then
            If StrComp(Left(shpTemp.Name, 3), "BOB") = 0 Then
                ' ignore Bob's!
            Else
                shpTemp.Visible = False
            End If
        End If
    Next
    
    With Range("W50   ")
        strName = Trim(.Value)
        If Len(strName) > 0 Then
            Set oPic = Me.Pictures(strName)
            oPic.Visible = True
            oPic.Top = .Top
            oPic.Left = .Left
        End If
    End With
    
End Sub