1 Тема от Alex_Gur

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

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

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

Sub Рамка_для_скриншота()
    'создание фигуры "Скругленный прямоугольник" в левом верхнем углу текущей страницы:
    ActiveDocument.Shapes.AddShape(msoShapeRoundedRectangle, 100, 75, 150, 75).Select
    'указываются расстояния (в пунктах) от левого края листа, от верхнего края листа, длина и высота
    
    'прозрачность:
    Selection.ShapeRange.Fill.Visible = msoFalse
    
    'цвет линии границы (красный):
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
    'толщина линии границы:
    Selection.ShapeRange.Line.Weight = 1.5
    'видимость границы:
    Selection.ShapeRange.Line.Visible = msoTrue
    'стиль линии границы:
    Selection.ShapeRange.Line.Style = msoLineSingle
End Sub

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

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