1 Тема от Alex_Gur

  • Быстрое создание стрелочки для скриншота
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

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

Предлагается макрос для быстрого создания стрелки для скриншота.
Стрелка - красного цвета, толщина линии - 1.5 пункта.
Стрелка создается в левом верхнем углу текущей страницы.

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

Идея реализации подсказана здесь: внешняя ссылка

О создании рамки для скриншота с помощью макроса - см. следующую страницу: http://wordexpert.ru/forum/viewtopic.php?id=2993

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.