Имеется код.
Логика. 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