в листе excel нарисовать стрелки

← →
serjufa (2005-07-20 12:16) [0]

Уважаемые жители!
Наверное, мой вопрос будет оригинален и уникален. А звучит он так. Имеем

Список месяцев 1 цех 2 цех 3 цех 4 цех
200501 1279 300 238 326 415
200502 1278 301 239 323 415
200503 1274 303 239 321 411
200504 1270 301 236 321 412
200505 1272 302 236 320 414
200506 1280 303 237 324 416
7653 1810 1425 1935 2483
Итого
От Итого вверх и вправо мне нужно на определенной позиции в листе excel нарисовать стрелки. Упрощенно это будет выглядеть

^ 1 2 3 ......
| 1 2 3 ......
| 1 2 3 ......
| 1 2 3 ......
Итого ---------------------------->

ТОлько стрелка должна быть сплошная - в Excell в закладке [рисование] есть линия, стрелка и т.д.

← →
Digitman © (2005-07-20 12:32) [1]

ActiveSheet.Shapes.AddLine(22.8, 5.4, 22.8, 137.4).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical
ActiveSheet.Shapes.AddLine(22.2, 136.8, 165.6, 136.8).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

← →
serjufa (2005-07-20 13:09) [2]

К сожалению - не понял - как предлагаемый фрагмент прикрутить к моей программе

← →
YurikGL © (2005-07-20 15:18) [3]

А как с Excel-м работаешь?

← →
serjufa (2005-07-21 08:21) [4]

вот рабочий кусок программы работы с excell:

// поставим курсор на нужеую ячейку
XLApp.WorkBooks[1].Sheets[1].Cells[_Y +7+Current_Month ,12].Activate;
XLApp.WorkBooks[1].Sheets[1].Cells[_Y +7+Current_Month ,12].Orientation:=45;
XLApp.WorkBooks[1].Sheets[1].Cells[_Y +7+Current_Month ,12] := "Итого";

Сформулирую задачу по-другому. Работает программа по обработке таблиц. Рез/ты выводятся в Excell. В 22 местах листа с разными координатами по вертикали и горизонтали на пару ячеек должны рисоваться стрелки.

P.s. Если я это делал непосредственно в Excell - вопрос о рисовании было бы стыдно задавать. Т.к., координаты стрелок непостоянны, то использовать записанный макрос тоже не могу. 22 раза координаты уточняются программно.

XLApp.ActiveSheet.Shapes.AddLine(22.8, 5.4, 22.8, 137.4).Select
XLApp.Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

....

в листе excel нарисовать стрелки Найти похожие ветки