Автоматическое размещение изображения в ячейке

Я надеюсь, что кто-нибудь поможет здесь автоматически поместить изображение в ячейку. У меня есть таблица Excel, в которой в ячейке размещено несколько изображений. Я хочу поместить их в камеру. Один из вариантов — делать это по одному, но их 500. Второй вариант — использование кода VBA.

Из кода VBA я сначала попытался записать макрос, что дало мне следующий результат.

Sub PlaceAllPicturesInCells()

     ActiveSheet.Shapes("image12.png").PlacePictureInCell
     ActiveSheet.Shapes("image52.png").PlacePictureInCell
     ActiveSheet.Shapes("image96.png").PlacePictureInCell
     ActiveSheet.Shapes("image67.png").PlacePictureInCell

End Sub

Итак, чтобы сделать это для всех изображений, я использовал следующий код, но он не работает.

Sub PlaceAllPicturesInCells()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.PlacePictureInCell
    Next shp
End Sub

Может ли кто-нибудь помочь здесь и подсказать, что пошло не так?