Подскажите, пожалуйста.
Вот функция вставки рисунка в excel.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
' Вставка картинки
'========================================================
Function InsertWmfPicture(WMFPath)
' Привяжемся к верхнему левому углу
rr="A5"
ObjExc.ActiveSheet.Range(rr).Select
Set r1 = ObjExc.Range("B6:K18")
Set a = ObjExc.ActiveSheet.Pictures.Insert(WMFPath)
a.ShapeRange.LockAspectRatio = 1
a.ShapeRange.Height = r1.Height
ratio = (a.ShapeRange.Height/a.ShapeRange.Width)
aspect = (r1.Height/r1.Width)
If (ratio<aspect) Then
a.ShapeRange.Width = r1.Width
End If
'Выровнить рисунок по центру
a.ShapeRange.IncrementLeft (ObjExc.Range("A6:K18").Width-a.ShapeRange.Width)/2
a.ShapeRange.IncrementTop (ObjExc.Range("A5:K19").Height-a.ShapeRange.Height)/2
End Function
Картинка вставляется. Если открыть документ на другом компе, то есть объект картинки, но нет картинки. Получается, что сама картинка не вставилась? а лишь связь?
Если в екселе запишу макрос вставки картинки, то получится такой код
1.
2.
3.
4.
5.
6.
7.
8.
Sub Макрос2()
'
' Макрос2 Макрос
'
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Александр\Мои документы\Мои рисунки\tfile_img_big2.jpg" _
).Select
End Sub
Если сохраним файл и откроем его на др компе, то картинка будет та, что вставлена вручную. Если запустим этот макрос, то вставленная картинка на др компе так будет отсутствовать.
Как быть? Как картинку сохранить в файле?
