Форум пользователей 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/ |