1

Тема: Как нарисовать горизонтальную или вертикальную линию

Линии (а также линии со стрелками) в MS Word рисуются с помощью команды
Вставка – Фигуры – группа Линии

Однако попытки нарисовать в MS Word горизонтальную или вертикальную линию обычно не увенчиваются успехом – они получаются наклонными.

Исправить положение можно с помощью полей Высота фигуры и Ширина фигуры (выделение линии – Формат – группа Размер).

Для вертикальной линии нужно установить в поле Ширина фигуры значение 0 (0 см), а для горизонтальной линии – значение 0 (0 см) в поле Высота фигуры.

Копирование и вставка горизонтальной или вертикальной линии приводит также к созданию соответственно горизонтальной или вертикальной линии.
В случае, если длина горизонтальной или вертикальной линии меняется вручную, - свойство горизонтальности или вертикальности нарушается. К полученной линии нужно снова применить описанную выше процедуру.

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

2

Re: Как нарисовать горизонтальную или вертикальную линию

Для вертикальной линии нужно установить в поле Ширина фигуры значение 0 (0 см), а для горизонтальной линии – значение 0 (0 см) в поле Высота фигуры.

линию можно нарисовать нормально, если держать нажатым shift при установке длины

3

Re: Как нарисовать горизонтальную или вертикальную линию

Для выравнивания горизонтальной или вертикальной линии с помощью макроса выполните следующие действия:

1. Выделите линию вместе с окружающим ее текстом.
Примечание – Макрос при условии выделения собственно фигуры без текста у меня не работает.

2. Выполните соответствующий макрос.
Для выравнивания горизонтальной линии:

Sub EditHorizontalLine()
    Dim selPic As Object
    'Выделен текст с одной выравниваемой горизонтальной линией (или линией со стрелкой)
    Set selPic = Selection.Range.ShapeRange.Item(1)
    selPic.Select
    With Selection
        .ShapeRange.Height = 0
    End With
    ' Снятие выделения линии
    Selection.Collapse Direction:=wdCollapseStart
End Sub

Для выравнивания вертикальной линии:

Sub EditVerticalLine()
    Dim selPic As Object
    'Выделен текст с одной выравниваемой вертикальной линией (или линией со стрелкой)
    Set selPic = Selection.Range.ShapeRange.Item(1)
    selPic.Select
    With Selection
        .ShapeRange.Width = 0
    End With
    ' Снятие выделения линии
    Selection.Collapse Direction:=wdCollapseStart
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

4

Re: Как нарисовать горизонтальную или вертикальную линию

shanemac51 пишет:

линию можно нарисовать нормально, если держать нажатым shift при установке длины

Большое спасибо, shanemac51, я это забыл. sad

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