在Excel中用图像名称replace图像

我有一个电子表格与其中一列的图像。 当我点击图片时，我可以看到左上angular的图片名称。

我希望它的名字出现在列中，而不是图片。 我不能手动这样做，因为有超过10000行。 有没有办法在列中获取图像名称？

Answer 1

你可以试试这个，我希望它能为你工作。

Sub ImageNamesInCells() Dim i As Integer Dim actSheet As Worksheet Dim aShape As Shape Set actSheet = ActiveSheet 'or better ThisWorkBook.sheets("SheetName") For Each aShape In actSheet.Shapes oneShape.TopLeftCell = oneShape.Name 'assuming that TopLeftCell refers to the cell where the image is. Next End Sub 

祝你好运！