Листът ексел да изготви стрели

на Excel лист да се направи стрелки

Уважаеми граждани!
Предполагам, че въпросът ми е оригинален и уникален. И това звучи така. имаме

САМО стрелка трябва да бъде непрекъснат - в раздела Excell [живопис] е линия, стрелка, и т.н.

ActiveSheet.Shapes.AddLine (22.8, 5.4, 22.8, 137.4) .Изберете
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
# XA0; # XA0; Selection.ShapeRange.Flip msoFlipVertical
# XA0; # XA0; ActiveSheet.Shapes.AddLine (22.2, 136.8, 165.6, 136.8) .Изберете
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

За съжаление - не # XA0; осъзнах - като предложената фрагмент равенството в моята програма

Как да Excel-м работа?

Сега работи част от софтуера, работещи с Excell:

# XA0; # XA0; # XA0; # XA0; // постави курсора на nuzhe клетка
# XA0; # XA0; # XA0; # XA0; XLApp.WorkBooks [1] .Sheets [1] .Cells [_Y + 7 + Current_Month # XA0 ;, 12] .Activate;
# XA0; # XA0; # XA0; # XA0; XLApp.WorkBooks [1] .Sheets [1] .Cells [_Y + 7 + Current_Month # XA0 ;, 12] .Orientation: = 45;
# XA0; # XA0; # XA0; # XA0; XLApp.WorkBooks [1] .Sheets [1] .Cells [_Y + 7 + Current_Month # XA0 ;, 12]: = # XA0; "Общо";

Аз формулира проблема по различен начин. Създадено с програма за обработка на маса. Res / ви се появяват в Excell. Заземената плоча 22 с различни координати в хоризонтална и вертикална посока на двойка клетки трябва да бъдат изготвени стрелки.

Послепис Ако аз го направих директно в Excell - въпросът за рисунка ще бъде срам да поискам. защото координатите на стрелките са нестабилни, а след това използвайте записано макроса не мога един от двамата. 22 пъти координатите посочени от софтуер.

XLApp.ActiveSheet.Shapes.AddLine (22.8, 5.4, 22.8, 137.4) .Изберете
XLApp.Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle