Форум пользователей Visio http://visio.getbb.ru/ |
|
Как изменить высоту шрифта заголовка контейнера? http://visio.getbb.ru/viewtopic.php?f=6&t=1552 |
Страница 1 из 1 |
Автор: | andr [ 01 мар 2020, 15:00 ] | ||
Заголовок сообщения: | Как изменить высоту шрифта заголовка контейнера? | ||
Имеется код. Логика. 1. Пользователь выбирает фигуры; 2. Пользователь запускает макрос. 3. Код помещает выбранные фигуры в контейнер. Вопрос. 1. Как сделать чтобы после создания контейнера код менял высоту шрифта "заголовка" контейнера? Текущий код Код: Sub GetSelectedFigures()
Dim x As Integer Dim sel As Visio.Selection Dim shp As Visio.Shape Set sel = ActiveWindow.Selection Dim countSelect As Integer countSelect = sel.Count For x = 1 To sel.Count Set shp = sel.Item(x) Application.ActivePage.DropContainer ActiveDocument.Masters.ItemU("Plain"), shp Next End Sub
|
Автор: | Tumanov [ 01 мар 2020, 15:44 ] |
Заголовок сообщения: | Re: Как изменить высоту шрифта заголовка контейнера? |
Например, так: Код: ... Set shc = Application.ActivePage.DropContainer(ActiveDocument.Masters.ItemU("Plain"), shp) shc.Shapes(2).Cells("Char.Size").Formula = "18 pt" Если контейнеры могут быть произвольного типа, то хорошо бы проверить, имеется ли в shc.Shapes(2) ячейка user.msvStructureType и равно ли ее значение ="Heading". А то, можно ненароком другой шейп испортить вместо нужного. |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа [ Летнее время ] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |