用Excel中的图像名称替换图像

Question

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

而不是图像，我希望它的名字出现在列中。我不能手动执行此操作，因为有超过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

祝你好运！