Eu fiz um teste rápido no Excel 2013 (idioma alemão). Eu inseri algumas fotos aleatórias. Eles têm nomes automáticos como o seu, ou seja, "Grafik 4"
Paraexcluiressaforma,euusariaessatécnica:
Subtest()OnErrorResumeNextSetimage=ActiveSheet.Shapes("Grafik 4")
On Error GoTo 0
Debug.Print image.Name
If Not image Is Nothing Then
image.Delete
End If
End Sub
O Excel reconhece Shapes("Grafik 4")
apesar de ser o nome interno Picture 4
que você pode ver com Debug.Print image.Name