我希望有人能在这里帮助自动将图片放入单元格中。我有 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
任何人都可以帮忙并提出问题所在吗?
试试这个:
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