Есть макрос расставляющий картинки - в ячейки с единицами. Как макросом автоматически назначить гиперссылку (на соответствующий фото-файл) - на каждую вставленную картинку ?
Доброго времени суток, форумчане. Имеется вопрос.
Есть макрос расставляющий картинки - в ячейки с единицами. Как макросом автоматически назначить гиперссылку (на соответствующий фото-файл) - на каждую вставленную картинку ?DimOzerov
With ActiveSheet.Shapes.AddPicture(ThisWorkbook.Path & "\папка с файлами\" & n, 0, -1, r.Left, r.Top, -1, -1) .Height = r.Resize(5).Height .Name = "Вставленный" .Select ActiveSheet.Hyperlinks.Add Selection.ShapeRange(1), ThisWorkbook.Path & "\папка с файлами\" End With
[/vba]
DimOzerov, две строчки добавьте. [vba]
Код
With ActiveSheet.Shapes.AddPicture(ThisWorkbook.Path & "\папка с файлами\" & n, 0, -1, r.Left, r.Top, -1, -1) .Height = r.Resize(5).Height .Name = "Вставленный" .Select ActiveSheet.Hyperlinks.Add Selection.ShapeRange(1), ThisWorkbook.Path & "\папка с файлами\" End With
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
