8.х Выгрузка картинки в Excel 2010

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Snark13, 6 авг 2012.

  1. TopicStarter Overlay
    Snark13
    Offline

    Snark13

    Регистрация:
    6 авг 2012
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Помогите разобраться с очередным подарком от Microsoft

    Из 1С 8.1 выгружается прайс лист в формате Excel через Ole
    Прайс лист содержит картинки товаров и ссылки прикрепленные к картинкам.
    Код вставки картинок следующий:


    Код:
    ПутьКартинки = КаталогВременныхФайлов() + Новый УникальныйИдентификатор;
    Картинка.Записать(ПутьКартинки);
    Буква = "K";
    
    ЯчейкаКартинки = Лист.Range(Буква + Формат(НомерСтроки, "ЧГ=0"));
    ШиринаКартинки = 25;
    ВысотаКартинки = 25;
    
    КартинкаExcel = Лист.Pictures.Insert(ПутьКартинки);
    
    КартинкаExcel.Left = ЯчейкаКартинки.Left + (ЯчейкаКартинки.Width - ШиринаКартинки)/ 2;
    КартинкаExcel.Top = ЯчейкаКартинки.Top + ЯчейкаКартинки.Height - ВысотаКартинки / 2;
    КартинкаExcel.Width  = ШиринаКартинки;
    КартинкаExcel.Height = ВысотаКартинки;
    
    Если НЕ ПустаяСтрока(URL) Тогда
    Лист.Hyperlinks.Add(КартинкаExcel.ShapeRange.Item(1), URL); // Ссылка на картинку
    КонецЕсли;
    
    Проблема заключается в следующем - в Excel 2007 все нормально отрабатывало, а вот с Excel 2010 начались проблемы - на компьютере, где прайс выгружался - прайс выглядит нормально - со всеми картинками, на любом другом компьютере - в прайсе картинки не отображаются.
    Как я понял, это связано с тем, что по команде
    Код:
    КартинкаExcel = Лист.Pictures.Insert(ПутьКартинки);
    Excel 2010 вставляет картинку по "ссылке" и не сохраняет ее в самом файле.
    Кто-нибудь сталкивался с такой проблемой и как ее решили?
  2. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    на мой взгляд, вы вот тут и создаете ссылку собственно
    Код:
    Лист.Hyperlinks.Add(КартинкаExcel.ShapeRange.Item(1), URL); // Ссылка на картинку
  3. TopicStarter Overlay
    Snark13
    Offline

    Snark13

    Регистрация:
    6 авг 2012
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Проблема не в том что я добавляю ссылку, а именно в картинке, но даже, если я убираю эту строку, то все остается по прежнему

Поделиться этой страницей