Code:
Sub Test()
    ActiveSheet.Shapes("Picture 309").TopLeftCell.Select
End Sub