Ersetzen Sie Bild mit Bildname in Excel

Question

Ich habe eine Tabelle mit Bildern in einer der Spalten. Wenn ich auf das Bild klicke, kann ich den Bildnamen in der oberen linken Ecke sehen.

Anstelle der Bilder, würde ich seinen Namen wie in der Spalte angezeigt werden. Ich kann das nicht manuell machen, da es über 10000 Zeilen gibt. Gibt es eine Möglichkeit, den Bildnamen in eine Spalte zu bekommen?

Answer 1

Sie können dies dann versuchen, und ich hoffe, es wird für Sie arbeiten.

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 

Viel Glück!