Видимо, вы используете в качестве объекта
xlApp экземпляр приложения Excel
2007 или
2010 .
Версии Excel до 2003-го включительно вставляют картинку точно в указанное место.
Новые же версии как-то учитывают рамки вокруг ячеек, и картинка вставляется со смещением.
Делал так - в некоторых случаях помогает:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function ВставитьКартинку(ByRef cell As Range, ByVal pic As String) As Picture
' если картинка вставлена успешно, возвращает TRUE
On Error Resume Next: Err.Clear
Dim ph As Picture: Set ph = cell.Parent.Pictures.Insert(pic)
Set ВставитьКартинку = ph
ph.Placement = xlMoveAndSize
ph.ShapeRange.LockAspectRatio = msoFalse
ph.Top = cell.Top - CLng(Val(Application.Version) >= 12 ) * 0 . 1 * cell.Row
ph.Left = cell.Left
' k = ph.Width / ph.Height
' ph.Width = cell.Width: ph.Height = ph.Width / k
ph.Width = cell.Width: ph.Height = cell.Height
'cell.EntireRow.RowHeight = ph.Height
'If (Val(Application.Version) = 12) Then cell.Borders.LineStyle = xlNone
End Function
Обратите внимание на строку
ph.Top = cell.Top - CLng(Val(Application.Version) >= 12 ) * 0 . 1 * cell.Row
(если Excel старше версии 2003 - из координаты TOP вычитается небольшое число. подобрал его методом тыка, не всегда точно вставляется, но намного точнее, чем без этого)
