Как с помощью VBA найти изображение в ячейке Excel?

Question

[p-oleg]

Добрый день.
Казалось простой вопрос, но не получается.
Вот такой код на VBA должен найти картинки вставленные в ячейках Excel.
Но не находит.
Уже весь гугл облазил...

Sub findImages()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' Перебор всех листов
    For Each ws In ThisWorkbook.Worksheets
        ' Перебор всех вставленных изображений на листе
        For Each shp In ws.Shapes
            If shp.Type = msoPicture Then ' Проверка, что это изображение
            MsgBox ("Img")
            End If
        Next shp
    Next ws
End Sub

Answer 1

[Никита Дворец]

Вариант:

Public Sub FindPicture()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
MsgBox ("Img")
Else
End If
Next shp
End Sub