自动将图片放入单元格

Question

我希望有人能在这里帮助自动将图片放入单元格中。我有 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

任何人都可以帮忙并提出问题所在吗？

Answer 1

试试这个：

Sub PlaceAllPicturesInCells()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        shp.Select 'shape/picture must be selected first
        shp.PlacePictureInCell
    Next shp
End Sub