Форум пользователей Visio
http://visio.getbb.ru/

Курсор движется не в ту сторону.
http://visio.getbb.ru/viewtopic.php?f=15&t=1295
Страница 1 из 1

Автор:  olga_arb [ 15 фев 2018, 18:48 ]
Заголовок сообщения:  Курсор движется не в ту сторону.

При работе с текстовыми надписями курсор при нажатии кнопок со стрелками влево/вправо движется в противоположную сторону. В интернете когда-то встречала макрос, заменяющий флаг у свойств фигур для всего документа. Сейчас не могу найти. Может, подскажете, где его взять.

Автор:  Tumanov [ 15 фев 2018, 19:15 ]
Заголовок сообщения:  Re: Курсор движется не в ту сторону.

Макрос должен быть примерно таким (это для активной страницы)
Код:
Sub ttt()
    For i = 1 To ActivePage.Shapes.Count
        p = ActivePage.Shapes(i).Cells("Para.HorzAlign")
        ActivePage.Shapes(i).Cells("Para.Flags") = 0
        ActivePage.Shapes(i).Cells("Para.HorzAlign") = p
    Next
End Sub

Насколько я помню, при изменении Para.Flags еще и HorzAlign сбивается, поэтому здесь он запоминается и восстанавливается.
Если это лишнее, то две строки с HorzAlign можно выбросить.
Если для всего документа, то нужно еще и страницы перебрать.

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/