@p-oleg

Как с помощью VBA найти изображение в ячейке Excel?

Добрый день.
Казалось простой вопрос, но не получается.
Вот такой код на VBA должен найти картинки вставленные в ячейках Excel.
Но не находит.
Уже весь гугл облазил...

Sub findImages()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' Перебор всех листов
    For Each ws In ThisWorkbook.Worksheets
        ' Перебор всех вставленных изображений на листе
        For Each shp In ws.Shapes
            If shp.Type = msoPicture Then ' Проверка, что это изображение
            MsgBox ("Img")
            End If
        Next shp
    Next ws
End Sub
  • Вопрос задан
  • 89 просмотров
Пригласить эксперта
Ответы на вопрос 1
NikitaDvorets
@NikitaDvorets
Консалтинг / экономика / программирование (excel)
Вариант:

Public Sub FindPicture()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
MsgBox ("Img")
Else
End If
Next shp
End Sub
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы