Object.Picture = Shape object

Сергей Кр Пользователь Сообщений: 104 Регистрация: 23.12.2012	#1 01.03.2013 18:39:42 Здравствуйте, Возможна ли загрузка (программно) Shape object'а с Листа в Object.Picture ? Наподобие: Object.Picture = LoadPicture(pathname.Application.Worksheets(1).Shapes(1))

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

01.03.2013 21:46:33

возможна, 2 способами:

1) через WinAPI. Много сложного кода. Не рекомендую

2) сохраняем картинку из Shapes(1) в графический файл, потом подгружаем из файла

Если способ проще: надо хранить картинку на листе в контейнере (элементе управления) Image
Поскольку картинка будет в том же формате (stdPicture), скопировать её получится одной строкой кода

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Сергей Кр

Пользователь

Сообщений: 104 Регистрация: 23.12.2012

01.03.2013 22:32:44

Спасибо, Игорь.
Знаком с Вашими разработками (на Вашем сайте) по работе с изображениями.

Преследую цель:
1. Не увеличение объемов файлов из-за картинок.
2. Для создания (например) Надстроек Excel - изображения должны уже быть (или должны быть созданы) где-то в самом файле. (В виде бонуса дополнительные файлы(папки) - пользователь их может растерять).
3. Использование качественных Shapes (в т.ч. и градиентных) - вполне облагораживает смотрибельность UserForm.

Примерно думал: (Все делаем программно:)
1. создаем Shapes. Сразу необходимых(!) (различных) размеров (что важно при работе с Label, не говоря уже про Image) .
2. Object.Picture = Shape object
3. удаляем Shape
4.используем Object во время UserForm.Show
5. При выгрузке UserForm/закрытии файла - снова все девственно чисто и файл - прежнего (маленького)размера.

Прим. при хранении в ImageList - картинки ведь тоже надувают размер файла(?)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

01.03.2013 22:47:09

Цитата
изображения должны уже быть (или должны быть созданы) где-то в самом файле

Я решил вопрос таким способом:
http://excelvba.ru/code/FileToVBAFunction
Всего несколько строк кода - и картинку в любой момент можно создать (выгрузить в файл) и загрузить на форму.

Цитата
3. Использование качественных Shapes (в т.ч. и градиентных) - вполне облагораживает смотрибельность UserForm

Поверьте, — картинки только ухудшают «смотрибельность»
Представьте на минуту, что в интерфейсе Excel каждая форма (диалоговое окно) имеет свою разноцветную картинку.
Вам бы понравился такой «пёстрый» Excel?

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Сергей Кр Пользователь Сообщений: 104 Регистрация: 23.12.2012	#5 01.03.2013 22:54:09 В Excel каждая форма (диалоговое окно) НЕ имеет свою р а з н о ц в е т н у ю картинку, но они их и м е ю т. Спасибо за ссылку. В любом случае, благодарю за внимание к моему вопросу.

Читают тему