Replace image with image name in Excel

Question

I have a spreadsheet with images in one of the columns. When I click on the image, I can see the image name in the top left corner.

Instead of the images, I would like its name to appear in the column. I can't do this manually because there are over 10000 rows. Is there a way to get the image name in a column?

Answer 1

You can try this then, and I hope it will work for you.

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

Good luck!