Имя: Пароль:
1C
1С v8
Не сохраняются картинки в excel
0 Triumph
 
12.04.12
17:51
На удаленном компьютере запускаю обработку которая формирует эксельный файл с картинками, открываю этот файл там же - все картинки видны. После копирую файл по сети и открываю на своем компе - картинки не отображаются.Почему так проиходит, что необходимо добавить?
Код вставляющий картинку:
Карт = стр.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
ПутьКФайлуКартинки    = ПолучитьИмяВременногоФайла("jpg");
Карт.Записать(ПутьКФайлуКартинки);
Ячейка01 = Прайс.Cells(Строка,Столбец);
Нов = Прайс.Pictures.Insert(ПутьКФайлуКартинки);
Нов.ShapeRange.IncrementLeft(Ячейка01.Left + СдвигПраво);  
Нов.ShapeRange.IncrementTop(Ячейка01.Top + СдвигНиз);
2 andrewks
 
12.04.12
18:05
чем открываешь там,  а чем здесь? образец в студию
3 le_
 
12.04.12
18:10
Sub InsertPhotoEx(ByVal PicturePath As String, ByRef cell As Range)
   On Error Resume Next
   dh = 2    ' отступ от краёв ячейки
   Const k = 26.46
   If F.CheckBox_Comments Then    ' картинки в примечания
       cell.Comment.Delete
       Set pic = LoadPicture(PicturePath)
       With cell.AddComment.Shape
           w = pic.Width / k: h = pic.Height / k
           picRatio = w / h
           settingRatio = F.SpinButton_WComm / F.SpinButton_Hcomm

           If picRatio >= settingRatio Then    ' картинка шире, чем примечание
               h = h / w * F.SpinButton_WComm
               w = F.SpinButton_WComm
           Else    ' картика уже, чем примечание
               w = w / h * F.SpinButton_Hcomm
               h = F.SpinButton_Hcomm
           End If

           .Fill.UserPicture PicturePath    ' вставляем картинку
           .Width = w
           .Height = h
       End With
       Exit Sub
   End If

   dh = 1
   
   On Error Resume Next: Dim sha As Shape
   Set sha = cell.Worksheet.Shapes.AddPicture(PicturePath, True, True, cell.Left + dh, cell.Top + dh, cell.Width - 2 * dh, cell.Height - 2 * dh)

   If F.CheckBox_LockAspectRatio Then
       sha.ScaleWidth 1, msoTrue
       sha.ScaleHeight 1, msoTrue
   End If

   With sha
       .LockAspectRatio = msoTrue
       .Top = cell.Top + dh
       w = .Width: h = .Height: .Height = cell.Height - 2 * dh
       .Width = w * .Height / h
       .Left = cell.Left + dh  '+ cell.Width / 2 - .Width / 2
   End With

   If F.CheckBox_AddHyperlinks Then cell.Worksheet.Hyperlinks.Add sha, PicturePath, "", _
      "Щелкните для просмотра" & vbLf & "оригинального изображения"
End Sub