Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 09 апр 2020, 08:15

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !
Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Как изменить высоту шрифта заголовка контейнера?
СообщениеДобавлено: 01 мар 2020, 15:00 
Не в сети
Постоянный участник

Зарегистрирован: 25 янв 2017, 11:40
Сообщений: 79
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Имеется код.
Логика.
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 Кб | Просмотров: 67 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Как изменить высоту шрифта заголовка контейнера?
СообщениеДобавлено: 01 мар 2020, 15:44 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 1571
Очков репутации: 100611

Добавить очки репутацииУменьшить очки репутации
Например, так:
Код:
       
...
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". А то, можно ненароком другой шейп испортить вместо нужного.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB