пытаюсь разобраться, как в соседнюю с картинкой ячейку, вытянуть из этой картинки параметр "Замещающий текст". Чтобы при парсинге, можно было скачать картинку с ресурса в автоматическом режиме. Но никак не могу найти решения. Функции к картинкам не применимы, может есть какое-то решение?
Очень бы не хотелось в ручную текст копировать на 200-250 позиций
Спасибо всем заранее, кто наведет на мысль или подскажет с решением.
Добрый день
пытаюсь разобраться, как в соседнюю с картинкой ячейку, вытянуть из этой картинки параметр "Замещающий текст". Чтобы при парсинге, можно было скачать картинку с ресурса в автоматическом режиме. Но никак не могу найти решения. Функции к картинкам не применимы, может есть какое-то решение?
Очень бы не хотелось в ручную текст копировать на 200-250 позиций
Спасибо всем заранее, кто наведет на мысль или подскажет с решением.viko_v
Sub Макрос2() Dim r As Range, sh As Shape On Error Resume Next For Each sh In ActiveSheet.Shapes Set r = sh.TopLeftCell r.Offset(, 2) = sh.Title r.Offset(, 3) = sh.AlternativeText Next End Sub
[/vba]
Вот: Нажмите кнопку в файле.
[vba]
Код
Sub Макрос2() Dim r As Range, sh As Shape On Error Resume Next For Each sh In ActiveSheet.Shapes Set r = sh.TopLeftCell r.Offset(, 2) = sh.Title r.Offset(, 3) = sh.AlternativeText Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
