Как определить адрес ячейки, в которой находится картинка?

Sub SavePix()
    Dim avFiles, li As Long, oObj As Object, wsSh As Worksheet, wsTmpSh As Worksheet
    Dim sBookName As String, sName As String
 
    avFiles = Application.GetOpenFilename("Excel Files(*.xls*),*.xls*", , "Выбрать файлы", , True)
    If VarType(avFiles) = vbBoolean Then Exit Sub
    
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set wsTmpSh = ThisWorkbook.Sheets.Add
    For li = LBound(avFiles) To UBound(avFiles)
        Workbooks.Open avFiles(li)
        sBookName = ActiveWorkbook.Name
        For Each wsSh In Sheets
            For Each oObj In wsSh.Shapes
                If oObj.Type = 13 Then
                    '13 - картинки
                    '1 - автофигуры
                    '3 - диаграммы
                    oObj.Copy
                    sName = ActiveWorkbook.FullName & "_" & wsSh.Name & "_" & oObj.Name
                    With wsTmpSh.ChartObjects.Add(0, 0, oObj.Width, oObj.Height).Chart
                        .ChartArea.Border.LineStyle = 0
                        .Paste
                        .Export Filename:=sName & ".jpg", FilterName:="JPG"
                        .Parent.Delete
                    End With
                End If
            Next oObj
        Next wsSh
        ActiveWorkbook.Close 0
    Next li
    Set oObj = Nothing: Set wsSh = Nothing
    wsTmpSh.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Объекты сохранены в папке: " & ThisWorkbook.Path, vbInformation, "www.excel-vba.ru"
End Sub

Public Function TestPictCell(Cell As Range) As Boolean
Dim TmpShape As Shape
 
TestPictCell = False
    
    For Each TmpShape In Cell.Worksheet.Shapes
        If TmpShape.Type = msoPicture Then  ' Это картинка?
            If Cell.Address = TmpShape.TopLeftCell.Address Then TestPictCell = True 'адреса равны?
        End If
    Next
End Function