Присвоение ячейке значения, в зависимости от того, в какой области будет находиться рисунок в Excel

[ParAlexandr]

Добрый день. В VBA стал разбираться недавно, кому не лень помогите.

При помощи данного кода:

Sub ВыводКоординатАвтофигур()
    Dim sh As Worksheet, sha As Shape
    For Each sh In ThisWorkbook.Worksheets
        Debug.Print "Лист «" & sh.Name & "» - количество фигур: " & sh.Shapes.Count
        For Each sha In sh.Shapes
            n = n + 1: Debug.Print "   фигура №" & n & " с названием «" & sha.Name & "»"
            Debug.Print "      Координаты левого верхнего угла: X=" & sha.Left & "; Y=" & sha.Top
        Next sha
        Debug.Print "=== Конец просмотра листа «" & sh.Name & "» ===" & vbNewLine
    Next sh
End Sub

нахожу верхние координаты нужного мне рисунка на листе в Excel.

Нужно написать макрос, который будет проверять значение этих координат и присваивать значение (какое либо число) определенной ячейке в Excel.

[IgorGO]

if sha.Left... and sha.Top... then cells(r,c) = ...

[ParAlexandr]

Сообщение от IgorGO

if sha.Left... and sha.Top... then cells(r,c) = ...

Возможно ли сделать, отдельно для конкретного рисунка?
К примеру рисунок называется Com1. Нужно непосредственно для этого рисунка написать макрос.