Быстрое создание стрелочки для скриншота

Sub Стрелка_для_скриншота()
    'создание фигуры "Стрелка" в левом верхнем углу текущей страницы:
    Dim arrow As Shape
    Set arrow = ActiveDocument.Shapes.AddLine(100, 75, 250, 75)
    arrow.Line.EndArrowheadStyle = msoArrowheadTriangle
    'указываются расстояния (в пунктах) начала стрелки от левого края и от верхнего края листа и конца стрелки от левого края и от верхнего края листа
   
    'цвет линии (красный):
    arrow.Line.ForeColor.RGB = RGB(255, 0, 0)
    'толщина линии:
    arrow.Line.Weight = 1.5
    'видимость линии:
    arrow.Line.Visible = msoTrue
    'стиль линии:
    arrow.Line.Style = msoLineSingle
    
    'выделение стрелочки для ее более удобного перемещения:
    arrow.Select
End Sub