Excel 2007 Trouble

[Gogic]

Привет, камрады.

Возник вопрос, как вставить в определенное место Excel 2007.

В 97-2003 работало так:

Set objExcel = New Excel.Application
objExcel.Application.Workbooks.Open App.Path & "\profile2.xls"
objExcel.ActiveSheet.Range("G49").Select
objExcel.ActiveSheet.Pictures.Insert App.Path & "\cut24.jpg"
objExcel.ActiveSheet.Range("A68").Select
objExcel.ActiveSheet.Pictures.Insert App.Path & "\cut12.jpg"
objExcel.ActiveSheet.Range("I68").Select
objExcel.ActiveSheet.Pictures.Insert App.Path & "\cut18.jpg"

и.т.д

[Gogic]

Сорри, вопрос снимается.
Загуглил и нашел.
Будет примерно так:

Код: Выделить всё

Set o = objExcel.ActiveSheet.Pictures.Insert(App.Path & "\cut24.jpg")
o.Top = objExcel.ActiveSheet.Cells(1, 1).Top
o.Left = objExcel.ActiveSheet.Cells(1, 1).Left