0
Triumph
12.04.12
✎
17:51
|
На удаленном компьютере запускаю обработку которая формирует эксельный файл с картинками, открываю этот файл там же - все картинки видны. После копирую файл по сети и открываю на своем компе - картинки не отображаются.Почему так проиходит, что необходимо добавить?
Код вставляющий картинку:
Карт = стр.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
ПутьКФайлуКартинки = ПолучитьИмяВременногоФайла("jpg");
Карт.Записать(ПутьКФайлуКартинки);
Ячейка01 = Прайс.Cells(Строка,Столбец);
Нов = Прайс.Pictures.Insert(ПутьКФайлуКартинки);
Нов.ShapeRange.IncrementLeft(Ячейка01.Left + СдвигПраво);
Нов.ShapeRange.IncrementTop(Ячейка01.Top + СдвигНиз);
|
|
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
|
|