Saber la celda donde se aloja una imagen

Tengo una imagen que coloque en una celda con anterioridad.

izq = ActiveCell.Left
arr = ActiveCell.Top
ActiveSheet.Pictures.Insert(carpeta & ".png"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 20
Selection.ShapeRange.Width = 20
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Top = arr

Mi pregunta es si hay alguna forma de que al seleccionar una imagen saber en que celda esta alojada.

Seria lo contrario a lo realizado , mas o menos asi.

izq = Selection.ShapeRange.Row

arr=Selection.ShapeRange.Column