Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Предварительный просмотр pdf файла в листе Excdel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Предварительный просмотр pdf файла в листе Excdel (Макросы/Sub)
Предварительный просмотр pdf файла в листе Excdel
ees Дата: Понедельник, 10.07.2017, 08:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток!

Возможно ли в Excel, при помощи vba, реализовать предварительный просмотр файла (pdf, jpg и пр) в листе.

Например при нажатии кнопки находится нужный файл и вставляется в ячейку его уменьшенная копия, что бы при просмотре было понятно, что это за картинка такая.

Спасибо!
 
Ответить
СообщениеДоброго времени суток!

Возможно ли в Excel, при помощи vba, реализовать предварительный просмотр файла (pdf, jpg и пр) в листе.

Например при нажатии кнопки находится нужный файл и вставляется в ячейку его уменьшенная копия, что бы при просмотре было понятно, что это за картинка такая.

Спасибо!

Автор - ees
Дата добавления - 10.07.2017 в 08:59
sboy Дата: Понедельник, 10.07.2017, 09:08 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 771
Репутация: 200 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
без файла примера как-то так
[vba]
Код
ActiveSheet.Pictures.Insert("D:\Мои документы\Изображения\Рисунок1.jpg")
[/vba]
 
Ответить
СообщениеДобрый день.
без файла примера как-то так
[vba]
Код
ActiveSheet.Pictures.Insert("D:\Мои документы\Изображения\Рисунок1.jpg")
[/vba]

Автор - sboy
Дата добавления - 10.07.2017 в 09:08
ees Дата: Понедельник, 10.07.2017, 09:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
А можно как то сделать предварительный просмотр и других форматов. Например pdf.

И именно предварительный просмотр, потому что если просто вставлять файлы в лист, они могут значительно увеличить размер excel файла.

sboy, я попробовал Вашим методом вставить jpg файл и файл pdf. jpg получилось, а вот pdf нет:





Спасибо!
 
Ответить
СообщениеА можно как то сделать предварительный просмотр и других форматов. Например pdf.

И именно предварительный просмотр, потому что если просто вставлять файлы в лист, они могут значительно увеличить размер excel файла.

sboy, я попробовал Вашим методом вставить jpg файл и файл pdf. jpg получилось, а вот pdf нет:





Спасибо!

Автор - ees
Дата добавления - 10.07.2017 в 09:23
sboy Дата: Понедельник, 10.07.2017, 09:41 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 771
Репутация: 200 ±
Замечаний: 0% ±

Excel 2010
Не совсем понимаю, что для Вас значит "предварительный просмотр"...
Может так подойдет?
[vba]
Код
ActiveSheet.OLEObjects.Add(Filename:="C:\Тест\1.pdf").Activate
[/vba]
Вы бы конечную цель пояснили, может я не в ту сторону подсказываю)))
 
Ответить
СообщениеНе совсем понимаю, что для Вас значит "предварительный просмотр"...
Может так подойдет?
[vba]
Код
ActiveSheet.OLEObjects.Add(Filename:="C:\Тест\1.pdf").Activate
[/vba]
Вы бы конечную цель пояснили, может я не в ту сторону подсказываю)))

Автор - sboy
Дата добавления - 10.07.2017 в 09:41
ees Дата: Понедельник, 10.07.2017, 10:12 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, Прошу прощения, за туманные вопросы.

Цель такая: есть файлы pdf, jpg и пр. При выполнении макроса, в определенные ячейки вставляется имя файла, а рядом необходимо вывести его картинку, что бы было понятно, что это такое.

Пример

 
Ответить
Сообщениеsboy, Прошу прощения, за туманные вопросы.

Цель такая: есть файлы pdf, jpg и пр. При выполнении макроса, в определенные ячейки вставляется имя файла, а рядом необходимо вывести его картинку, что бы было понятно, что это такое.

Пример


Автор - ees
Дата добавления - 10.07.2017 в 10:12
ees Дата: Понедельник, 10.07.2017, 10:17 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, Ваш код сработал, больше спасибо. Единственное хотел у Вас спросить, есть ли возможность вставлять не сам pdf файл, а его уменьшенную копию, для того что бы не происходило резкого увеличения размера excel файла.

Или проще с исходниками поработать, сделать их уменьшенные копии, а потом уже на них ссылаться?
 
Ответить
Сообщениеsboy, Ваш код сработал, больше спасибо. Единственное хотел у Вас спросить, есть ли возможность вставлять не сам pdf файл, а его уменьшенную копию, для того что бы не происходило резкого увеличения размера excel файла.

Или проще с исходниками поработать, сделать их уменьшенные копии, а потом уже на них ссылаться?

Автор - ees
Дата добавления - 10.07.2017 в 10:17
sboy Дата: Понедельник, 10.07.2017, 10:50 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 771
Репутация: 200 ±
Замечаний: 0% ±

Excel 2010
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
[/vba]

Автор - sboy
Дата добавления - 10.07.2017 в 10:50
ees Дата: Понедельник, 10.07.2017, 11:04 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, Спасибо!
 
Ответить
Сообщениеsboy, Спасибо!

Автор - ees
Дата добавления - 10.07.2017 в 11:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Предварительный просмотр pdf файла в листе Excdel (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!