VBA visio - невозможно изменить размер шрифта в элементе
Мне интересно, почему я не вижу совершенно никакой реакции при попытке изменить размер шрифта элемента.
Мой код:
For Each Vshp In VPage.Shapes
If Vshp.Name Like "*UG*" Then
Debug.Print Vshp.ID & " - " & Vshp.Master.Name
Vshp.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt"
End If
Next
Оба подхода из приведенных ниже ссылок также не работают:
Ответы 2
Ваши фигуры, вероятно, являются группами. Вам нужно применить формулу к фигурам внутри группы.
Или эти формы могут быть защищены с помощью функции защиты ячейки размера шрифта. В этом случае вам нужно использовать FormulaForceU свойство
При применении FormulaForceU вместо FormulaU результат, к сожалению, тот же
Какой результат вы имеете в виду: никаких изменений или ошибка? Если изменений нет, то версия Павла верна!
Хорошо, если да, то как я могу проверить, что мои элементы сгруппированы? Это может быть хорошей отправной точкой для моих дальнейших решений.
Вы должны использовать Окно обозревателя чертежей.
Там вы не можете найти содержимое страницы в виде дерева
В этом случае мы можем видеть 4 подформы в UG-форме…
Если вам нужно изменить размер шрифта для подформы с текстом NRTH-X-AF01AK, вам нужно изменить строку
Vshp.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt" в линию Vshp.Shapes(4).CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "12 pt"
Мы не знаем, что такое УГ или УГ-формы?