Bilder in Zelle auslesen und auswerten

Hallo Zusammen,
ich bekomme aus einem System Werte ausgegeben, die ich gerne auswerten möchte. Die Struktur ist eigentlich simpel:

Spalte 1 = Identifikationsnummer (Nummer)
Spalte 2 = Name (Text)
Spalte 3 = Stadt (Text)
Spalte 4 = Geschlecht (leider nur als Pic nicht aber als Text)
Spalte 5 = Umsatz

Die Bilder in der Zelle werden leider durch das System ausgegeben, da kann ich nicht viel ändern. Also ist mein Ansatz, diese einfach auszuwerten. Ich habe 4 Namen für die Bilder:

image1.png = für aktive männliche Nutzer
image2.png = für passive männliche Nutzer
image3.png = für aktive weibliche Nutzer
image4.png = für passive weibliche Nutzer

Mein Ansatz ist folgernder:

Varianter 1
Einfach nach dem image3.png filtern. Nur weiß ich leider nicht, wie man Grafiken filtern kann.

Variante 2
In Spalte 6 einfach den Wert Name der Datei in die gleiche Zeile in Spalte 6 ausgeben. Sobald ich alle Dateinamen als Text habe, filtere ich einfach nach dem Text.

Ich habe sowohl im Netz als ich auch hier gesucht, finde dafür aber keinen Ansatz.

Bin für jeden Tipp sehr dankbar!

LG, Chico ;)

Sub Test()
    Dim shp As Shape
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            For Each shp In ActiveSheet.Shapes
                If shp.TopLeftCell = cell.Offset(0, 3) Then
                    msgbox "Name für Bild Zelle " & cell.Offset(0, 3).Address & " lautet " &  shp.Name  
                    Exit For
                End If
            Next
        Next
    End With
End Sub