在 Excel 中用图像名称替换图像答案

【问题标题】：Replace image with image name in Excel在 Excel 中用图像名称替换图像
【发布时间】：2017-04-21 00:59:48
【问题描述】：

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

我希望它的名称出现在列中，而不是图像。我无法手动执行此操作，因为有超过 10000 行。有没有办法在列中获取图像名称？

【问题讨论】：

嗨。这假定所有图片都在 Excel 中正确命名。是这样吗？
@Hadi，每个图像都有一个不同的名称。我不知道“正确命名”是什么意思。
图片是一组有名字数组的形状...可以根据内容设置，可以通过代码读取。

标签： excel excel-formula excel-2010 large-data vba

【解决方案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

祝你好运！

【讨论】：