Загрузка изображения из самого файла ексель - Мир MS Excel

Регистрация

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

= Мир MS Excel/Загрузка изображения из самого файла ексель - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Загрузка изображения из самого файла ексель (Макросы/Sub)

Загрузка изображения из самого файла ексель

Дата: Четверг, 21.09.2017, 10:59 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

[vba]

Код

Private Sub UserForm_Initialize()
UserForm1.Image1.Picture = Shapes("Рисунок 1")
End Sub

[/vba]

Сообщение отредактировал Asretyq - Четверг, 21.09.2017, 10:59

Ответить

Дата: Четверг, 21.09.2017, 11:07 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

ошибка наверное потому что .Picture принимает как аргумент путь где лежит файл и его оттуда загружает
а shapes это не картинка а объект книги

[offtop]так то мне тоже лень делать пример, и на нем смотреть что не верно...

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 21.09.2017, 11:33

Ответить

Дата: Четверг, 21.09.2017, 11:54 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

тогда как быть с кодом? я не писал что мне лень делать...

Сообщение отредактировал Asretyq - Четверг, 21.09.2017, 11:55

Ответить

Дата: Четверг, 21.09.2017, 12:02 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

вот файл!

К сообщению приложен файл: 11.xlsm (45.1 Kb)

Ответить

Дата: Четверг, 21.09.2017, 12:24 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

Цитата Asretyq, 21.09.2017 в 11:54, в сообщении № 3 ()

тогда как быть с кодом?

сохранить картинку во временный файл, затем присвоить .picture путь к этому файлу.
других вариантов пока не знаю...

Благими намерениями выстелена дорога в АД.

Ответить

Дата: Четверг, 21.09.2017, 13:09 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

а может кто-то подскажет загрузку рисунка с самого екселя?

Ответить

Дата: Четверг, 21.09.2017, 13:24 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

userform1.image1.picture = loadpicture (Worksheets("Sheet1").shapes("Object 1"))

[/vba] вот нашел в нете, только почему то она у меня не работает

Ответить

Загрузка изображения из самого файла ексель (Макросы/Sub)

Страница 1 из 1
1

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