как нарисовать стрелку из одной ячейки в другую

[Stoodentka]

Уважаемые форумчане!
Есть список пунктов, между которыми проложен канал. Подскажите, пожалуйста, как нарисовать стрелку из одного пункта в другой? Можно, конечно, и руками, но пунктов очень много. Заранее спасибо тем, кто откликнулся!!!

[diment]

предлагается вот такой "нехитрый" вариант решения проблемы

[diment]

есть еще более простой и больлее полезный вариант - показывающий направление канала

[Stoodentka]

diment, большое спасибо за совет! Любопытное решение
Все-таки стрелки надо нарисовать.

[Diplodok]

Сообщение от Stoodentka

diment, большое спасибо за совет! Любопытное решение
Все-таки стрелки надо нарисовать.

Во-первых, в Экселе есть способ посмотреть как что-то сделать, используя запись макроса :-)
Во-вторых, примитивный пример рисования стрелки в ячейке Экселя на VBA.

*********************************
Sub DrawArrowInCell()

' -привязка к странице

Set mydocument = ThisWorkbook.Worksheets(1)

' получаем имя страницы для передачи его в подпрограммы и функции
wn = mydocument.Name

' получаем х координату центра ячейки (4,7)
xb = GetXCellCenter(wn, 4, 7)

' получаем у координату центра ячейки (4,7)
yb = GetYCellCenter(wn, 4, 7)

lx = 43 ' задаем длину стрелки в поинтах по х
ly = -30 ' задаем длину стрелки в поинтах по у
' знак управляет направлением стрелки.
' Отсчет координат, традиционно, из верхнего левого угла вправо (Х) и вниз (У)


' удаляем все объекты на листе
mydocument.Shapes.SelectAll Selection.Delete

'Рисуем стрелку из центра (xb,yb)
With mydocument.Shapes.AddLine(xb, yb, xb + lx, yb + ly).Line
.ForeColor.RGB = RGB(0, 0, 0)
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
End With

End Sub

'Функция вычисления координаты Y центра ячейки в поинтах
Function GetYCellCenter(Ws, row, column)
With ThisWorkbook.Worksheets(Ws)
ay = 0
For j = 1 To row
rh = .Cells(j, column).Rows.Height
ay = ay + rh
Next j
End With
GetYCellCenter = ay - rh / 2 ' смещаем в центр ряда
End Function

'Функция вычисления координаты X центра ячейки в поинтах

Function GetXCellCenter(Ws, row, column)
With ThisWorkbook.Worksheets(Ws)
ax = 0
For i = 1 To column
cw = .Cells(row, i).Columns.Width
ax = ax + cw
Next i
End With
GetXCellCenter = ax - cw / 2 ' смещаем в центр колонки
End Function

*********************************
Файл с макросом в архиве.
Удачи