| 
    
        
     
     | 
    
  | 
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. возможно удастся адаптировать  | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |