Foaia Excel pentru a trage săgeți

o foaie Excel pentru a trage săgeți

Stimați cetățeni!
Cred că întrebarea mea este original și unic. Și citește. avem

DOAR săgeata ar trebui să fie continuă - în tab-ul Excell [pictura] este o linie, sageata, etc.

ActiveSheet.Shapes.AddLine (22,8, 5,4, 22,8, 137,4); selectați
# 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); selectați
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
# XA0; # XA0; Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Din păcate - nu # XA0, realizat - ca fragmentul propus cravată la programul meu

Cum să Excel m locul de muncă?

Acum bucată de software de lucru cu Excell de lucru:

# XA0; # XA0; # XA0; # XA0; // pune cursorul pe nuzhe celulei
# 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; "Total";

Formulez problema într-un mod diferit. Susținut de program de procesare de masă. Res / apăreți în Excell. Placa sol 22 cu diferite coordonate în direcțiile verticală și orizontală pe o pereche de celule trebuie să fie trase săgeți.

P.S. Dacă am făcut-o direct în Excell - problema desen ar fi rușine să întreb. pentru că coordonează săgețile sunt instabile, apoi utilizați macro înregistrat nu poate fie. 22 de ori coordonatele specificate de software.

XLApp.ActiveSheet.Shapes.AddLine (22,8, 5,4, 22,8, 137,4); selectați
XLApp.Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle