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


Вложения:
2020-03-01_13-59-36.png
2020-03-01_13-59-36.png [ 22.75 Кб | Просмотров: 360 ]

Автор:  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/