イメージを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 

幸運！