Delphi и VBA (создание стрелки)

[Kuraj]

Здравствуйте.
Такая проблема я не могу подогнать код VBA в delphi он вечно выводит мне ошибку... Кто знает как этот код можно застваить работа в Delphi

XL.ActiveSheet.Shapes.AddLine(yach1, yach11, yach2, yach22).Line.EndArrowheadStyle:=msoArrowheadTriangle;

Xl это всё норм тип вариант итп не в этом дело а ошибка в msoArrowheadTriangle он не может понять что это и почему это ему присваивают...

Оригинальный код из VBA

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

[EducatedFool]

Попробуйте заменить константу msoArrowheadTriangle её значением 2

XL.ActiveSheet.Shapes.AddLine(yach1, yach11, yach2, yach22).Line.EndArrowheadStyle:=2

[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

2 языкка юзать не так легко блин..у каждого свой синтаксис..

Помоги пожалуйста как мне нартсовать стрелку если у меня есть значения ячеек записанные в 4 переменные.

Ячейки у меня находятся там циклом длинным не буду показывать.. потом значении cells записывает в переменные

yach1:=jj+3;
yach11:=ii; // от какой

yach2:=jj-3; //до какой
yach22:=ii;

Как изменить твой код что бы стрелки рисовались от ячеек..

пытлся делать так

begin
         yach1 := xl.Sheet[1].cells[yach1,yach11].Left + xl.sheet[1].cells[yach1,yach11].Left / 2;
         yach11:= xl.activsheet.cells[yach1,yach11].Left.Top + xl.activsheet.cells[yach1,yach11].Left.Height / 2   ;
         yach2:= xl.activsheet.cells[yach2,yach22].Left + xl.activsheet.cells[yach2,yach22].Width / 2        ;
         yach22:= xl.activsheet.cells[yach2,yach22].Top + xl.activsheet.cells[yach2,yach22].Height / 2     ;
         XL.ActiveSheet.Shapes.AddLine(yach1, yach11, yach2, yach22).Line.EndArrowheadStyle:=2;      ;

[EducatedFool]

пытлся делать так

 yach1 := xl.Sheet[1].cells[yach1,yach11].Left + xl.sheet[1].cells[yach1,yach11].Left / 2;

Я не знаю синтаксиса Delphi, но в логике кода явная ошибка:
в переменную yach1 заносится координата ячейки (в пикселах),
и тут же эта же переменная yach1 используется как позиция ячейки (номер строки)

[Kuraj]

Тогда хотя бы сажи как этот код будет выглядеть в VBA если координаты ячеек берутся из cells а дальше я думаю догоню..

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