Как я могу перенести названия изображений на листе Excel в переменную (ы) VBA

#excel #vba

#excel #vba

Вопрос:

В Excel я могу использовать панель выбора, чтобы определить названия изображений. Как я могу перенести эти имена на уровень vba?

Ответ №1:

Я предполагаю, что вы ищете что-то вроде этого:

 Sub Test()
    Dim shp As Shape
    Dim shpName As String

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoPicture Then
            shpName = shp.Name
            Debug.Print shpName
        End If
    Next shp
End Sub
  

Комментарии:

1. Идеально — Спасибо, сэр!