Как получить тип range из значений cells

[Kuraj]

Здравствуйте народ...я перенёс тему в соответствующий раздел..

Есть такой код.

Sub ПримерИспользования()
    НарисоватьСтрелку[a6], [d1]
    НарисоватьСтрелку[a9], [d10]
End Sub

Sub ПримерИспользования(ByRef Ячейка1 As Range, ByRef Ячейка2 As Range)
    BeginX = Ячейка1.Left + Ячейка1.Width / 2
    BeginY = Ячейка1.Top + Ячейка1.Height / 2
    EndX = Ячейка2.Left + Ячейка2.Width / 2
    EndY =Ячейка2.Top + Ячейка2.Height / 2

    ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Как мне использовать его если у меня данные ячеек расположены в cells[i,j]
а не в типах range

Или даже так как можно с помощью VBA узначть range например активной ячейки..

[EducatedFool]

cells[i,j] возвращает объект типа Range

Просто переведите этот код на Delphi, оставив рисование стрелки в виде отдельной функции.

[Kuraj]

На конец то дошло до меня...

всё спс разобрался написал работает))

BeginX:= XL.Worksheets[1].Cells[yach1, yach11].Left + xl.Worksheets[1].Cells[yach1, yach11].Width / 2 ;
    BeginY:= XL.Worksheets[1].Cells[yach1, yach11].Top + XL.Worksheets[1].Cells[yach1, yach11].Height / 2 ;
    EndX:= XL.Worksheets[1].Cells[yach2, yach22].Left + XL.Worksheets[1].Cells[yach2, yach22].Width / 2  ;
    EndY:= XL.Worksheets[1].Cells[yach2, yach22].Top + XL.Worksheets[1].Cells[yach2, yach22].Height / 2  ;
    xl.ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Line.EndArrowheadStyle:=2;