Возможно ли в Excel, при помощи vba, реализовать предварительный просмотр файла (pdf, jpg и пр) в листе.
Например при нажатии кнопки находится нужный файл и вставляется в ячейку его уменьшенная копия, что бы при просмотре было понятно, что это за картинка такая.
Спасибо!
Доброго времени суток!
Возможно ли в Excel, при помощи vba, реализовать предварительный просмотр файла (pdf, jpg и пр) в листе.
Например при нажатии кнопки находится нужный файл и вставляется в ячейку его уменьшенная копия, что бы при просмотре было понятно, что это за картинка такая.
Цель такая: есть файлы pdf, jpg и пр. При выполнении макроса, в определенные ячейки вставляется имя файла, а рядом необходимо вывести его картинку, что бы было понятно, что это такое.
Пример
sboy, Прошу прощения, за туманные вопросы.
Цель такая: есть файлы pdf, jpg и пр. При выполнении макроса, в определенные ячейки вставляется имя файла, а рядом необходимо вывести его картинку, что бы было понятно, что это такое.
sboy, Ваш код сработал, больше спасибо. Единственное хотел у Вас спросить, есть ли возможность вставлять не сам pdf файл, а его уменьшенную копию, для того что бы не происходило резкого увеличения размера excel файла.
Или проще с исходниками поработать, сделать их уменьшенные копии, а потом уже на них ссылаться?
sboy, Ваш код сработал, больше спасибо. Единственное хотел у Вас спросить, есть ли возможность вставлять не сам pdf файл, а его уменьшенную копию, для того что бы не происходило резкого увеличения размера excel файла.
Или проще с исходниками поработать, сделать их уменьшенные копии, а потом уже на них ссылаться?ees
ees, При работе с картинками (JPG, GIF и пр.), у метода есть свойства ширины и высоты см. пример кода. А как работать с изображением PDF формата не знаю, ни разу не сталкивался... [vba]
Код
With ActiveSheet.Shapes.AddPicture(PicPath, msoFalse, msoCTrue, 0, 0, 0, 0) .Top = Cells(R, c + 2).Top + 1 .Left = Cells(R, c + 2).Left + 5 .Width = 146 .Height = 90 .Placement = xlMoveAndSize End With
[/vba]
ees, При работе с картинками (JPG, GIF и пр.), у метода есть свойства ширины и высоты см. пример кода. А как работать с изображением PDF формата не знаю, ни разу не сталкивался... [vba]
Код
With ActiveSheet.Shapes.AddPicture(PicPath, msoFalse, msoCTrue, 0, 0, 0, 0) .Top = Cells(R, c + 2).Top + 1 .Left = Cells(R, c + 2).Left + 5 .Width = 146 .Height = 90 .Placement = xlMoveAndSize End With
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
