ActiveSheet.Shapes Zellposition

Sub ZeigeBildposition()
Dim Name As String
Dim Test
Name = ActiveSheet.Shapes(Application.Caller).Name ' Funktioniert
MsgBox Name
Test = ActiveSheet.Shapes(Position der Zelle in der sich das Shapes befindet)
MsgBox Test
End Sub

Gruß Gast