Проблема при выгрузке картинок в Excel

skaa

Добрый день!
Прошу помощи у знатоков Excel-я.
У нас в компании уже долгое время работал отчет по выгрузке товаров с картинками в Excel файл. Отчет написан с помощью функционала Parazita(ZWWW_OPENFORM). Пока в компании стоял Excel 2007 никаких проблем не было. Отчет формировался и отправлялся по электронной почте клиенту. Клиент открывал у себя и видел картинки товаров в Excel файле. С недавнего времени компания начала переходить на Excel 2013. И возникла следующая проблема. Отчет пересылается клиенту по почте и клиент вместо картинок видит у себя красный крестик с надписью "Не удается отобразить связанный рисунок. Возможно этот файл был перемещен, переименован или удален. Убедитесь, что ссылка указывает на правильный файл и верное размещение". У пользователей которые еще не успели перейти на Office2013, такой проблемы не возникает.
Картинка в Excel файл выгружается по такому же принципу как в тестовой программе Parazita ZWWW_MANY_LIST. Сначала выгружается на локальный компьютер пользователя а потом с помощью макроса в Excel.

Code:

Sub LoadPhoto(R As Range)
  Dim FlName, RangePhoto As Range, Pic, Fs
  
  On Error Resume Next
  Set RangePhoto = Application.Intersect(R, R.Worksheet.Range("Col_Photo"))
  If RangePhoto Is Nothing Then
    Set RangePhoto = R
  End If

  FlName = RangePhoto.Cells(1, 1).Value
  RangePhoto.Cells(1, 1).Value = ""
  
  Set Pic = RangePhoto.Worksheet.Pictures.Insert(FlName)
  Pic.Height = RangePhoto.Height
  Pic.Top = RangePhoto.Top
  If Pic.Width > RangePhoto.Width Then
    Pic.Width = RangePhoto.Width
  End If
  Pic.Left = RangePhoto.Left  

End Sub

В программе ZWWW_MANY_LIST точно такая же проблема с 2013 office.
Перетыкал все возможные опции и настройки Excel 2013, так и не удалось справится с проблемой. Может кто подскажет или направит куда копать. Буду рад любой помощи, заранее спасибо.

DKiyanov

Копать нужно в сторону отладчика в Excel а потом в хелп/internet по нему же

Создайте Excel, создайте в нём макрос, поставьте точку останова...

Parazit

Я посмотрел выгрузку примера ZWWW_MANY_LIST в Excel 2013, всё работает. Может у вас вообще вывод под 2013 не работает?! Когда ФМ загружали, может обновить?

skaa

Parazit написал:

Я посмотрел выгрузку примера ZWWW_MANY_LIST в Excel 2013, всё работает. Может у вас вообще вывод под 2013 не работает?! Когда ФМ загружали, может обновить?

ФМ загружал давно.
Поменял в макросе строчку Set Pic = RangePhoto.Worksheet.Pictures.Insert(FlName) на строчку
Set Pic = RangePhoto.Worksheet.Shapes.AddPicture(FlName, msoFalse, msoTrue, RangePhoto.Left, RangePhoto.Top, RangePhoto.Width, RangePhoto.Height)
И всё заработало!

Правила форума

Проблема при выгрузке картинок в Excel

Кто сейчас на конференции