在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 

祝你好運！