Имя: Пароль:
1C
1C 7.7
v7: Получить картинки из файла Excel
0 Pit0n_08
 
28.11.17
17:35
Кто знает несложный способ вытащить картинки и далее сохранить их в заданный каталог?
1 Волшебник
 
модератор
28.11.17
17:39
Excel.ActiveSheet.Shapes
2 Tatitutu
 
28.11.17
17:40
3 Волшебник
 
модератор
28.11.17
17:41
(2) Молодец.
4 Pit0n_08
 
28.11.17
17:41
(1) Картинок много. Где передать имя катринки или ячейку?
5 Pit0n_08
 
28.11.17
17:44
(2) нужно получать и сохранять не все сразу, а по одной и привязать к справочнику "Товары".
6 Pit0n_08
 
28.11.17
17:47
(2) типа далее работать как с файлами?
7 Tatitutu
 
28.11.17
18:02
(6)как задал вопрос - так и получил ответ.

Смотри и думай как в (1)
8 Pit0n_08
 
28.11.17
21:07
(7) по способу в (2) картинки сохраняются с расширением .png
Остаётся в обработке преобразовать файлики в .jpg Это реально?
9 Волшебник
 
модератор
28.11.17
21:11
(8) PNG отличный формат. Не меняй его.
10 Pit0n_08
 
28.11.17
21:14
(9) отличный формат, но в 7.7 ЗагрузиьФайлКартинки() его не хочет...
11 Волшебник
 
модератор
28.11.17
21:15
(10) Переходи на восьмёрку. Там это реализовано.
12 Pit0n_08
 
28.11.17
21:17
(11) восьмёрка ещё сырая, клиент ещё на ТиС 8.2 сидит.
13 Pit0n_08
 
28.11.17
21:22
(12) пардону прошу ТиС 8.7.14
14 Pit0n_08
 
28.11.17
21:39
Excel.ActiveSheet.Shapes(ИмяКартинки) как и Excel.ActiveSheet.Pictures(ИмяКартинки) возвращает ссылку на объект типа OLE.Shape или OLE.Picture. Как далее с ними работать?
15 Pit0n_08
 
29.11.17
11:55
Соответственно, когда
Фото.УстановитьКартинку(Страница.Shapes("Picture1"));
пишет "Объект не представляет собой Картинку!"
16 Pit0n_08
 
29.11.17
11:59
или подкиньте мысль как в обработке конвертировать файлы типа .png в .jpg?
17 Pit0n_08
 
29.11.17
12:14
Неужели никто с подобным не сталкивался?
18 Tatitutu
 
29.11.17
12:40
(17) Обратись к специалисту...
Пусть правильно сформулирует задачу,
проанализирует ее  и если не сможет сам решить,
то ХОТЯ БЫ ПРАВИЛЬНО задаст вопрос

потому что на вопрос
"Кто знает несложный способ вытащить картинки и далее сохранить их в заданный каталог?"

ответ я тебе привел в (2)


Что это за попытка суицида ?

Фото.УстановитьКартинку(Страница.Shapes("Picture1"));


СП 1С 7.7

УстановитьКартинку(<?>);
Синтаксис:
УстановитьКартинку(<Объект>)
Назначение:
Переустановить объект типа Картинка.
Параметры:
<Объект> - Выражение, имеющее значение типа объекта картинки встроенного языка, или OLE-объект типа IPicture.
19 Pit0n_08
 
29.11.17
12:53
(18) Поставщик прислал прайс с картинками. Позиции, отсутствующие в справочнике "Товары", надо загрузить в программу и сохранить в заданном каталоге файлы картинок (в формате .jpg), путь к которым прописывается в карточке товара.
Надеюсь, изложил на русском... :)
Вариант в (2) сохраняет файлы в формате .png, которые 1С не видит :(
20 Pit0n_08
 
29.11.17
12:56
(18) уже писал, что Excel.ActiveSheet.Pictures(ИмяКартинки) возвращает ссылку на объект OLE.Picture и это, к сожалению не IPicture.
21 Pit0n_08
 
29.11.17
13:01
+(20) так я пробовал получить картинку в обработке
22 Pit0n_08
 
29.11.17
13:07
Может у кого есть конвертер файлов .png в .jpg.
Онлайновых много, но конвертируют по одному-два файла, 2 тысячи файлов преобразовать будет не быстрее, чем руками...
23 Tatitutu
 
29.11.17
13:12
(22) на дарю - беспатно
скачать , уставноить в EXCEL надстройку
и все !
24 Tatitutu
 
29.11.17
13:12
25 Tatitutu
 
29.11.17
13:16
Файл - Параметры - Надстройки - (внизу Перейти) - Обзор - выбрать файл ExportPictures.xla

потом в файле нажимаешь Ctrl+Shift+P

выбрать jpg формат сохранения.
Ждешь и получаешь папку с готовым материалом.

(19) альтернатива. Берешь бренд - менеджера за "мягкое" и тот быстрее "поросячего визга" договаривается с поставщиком о выгрузке нужной тебе номенклатуры и картинок - в НУЖНОМ ТЕБЕ формате.
26 Pit0n_08
 
29.11.17
13:39
Огромное спасибо. Пробую.
27 Mr_Rm
 
29.11.17
13:40
(22) для пакетной обработки годятся, например, ImageMagick https://www.imagemagick.org или IrfanView http://www.irfanview.com/
28 MadDAD
 
06.12.17
11:08
(26) http://www.programmersforum.ru/showthread.php?t=37126

Там был макрос vba который работает c IPicture. возможно удастся адаптировать
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс