Обтекание реальным текстом; никаких чертовых возвратов кареты.
Visio 2010. SysML Stencil (источник неизвестен) Форма «Действие» в коллекции фигур «Диаграмма действий».
- Если вы не видите вкладку «Разработчик» на ленте:
Файл > Параметры > Настроить ленту > [Выберите «Разработчик» в списке «Основные вкладки»]
- Щелкните правой кнопкой мыши интересующую фигуру и выберите «Показать форму».
- Найдите интересующее свойство ширины
Преобразование текста > TxtWidth
- Измените формулу в ячейке свойства TxtWidth
- from (что-то вроде) '=MAX(Char.Size,TEXTWIDTH(TheText))'
- на '=MIN(Width-0.08,MAX(Char.Size,TEXTWIDTH(TheText)))'
- Наслаждаться.
Волшебство здесь - декремент -0,08. Без него я не мог бы сделать фигуру меньше, потому что формула не позволяла бы ширине текста быть меньше ширины фигуры, а ширина фигуры автоматически ограничивалась, как минимум, шириной текста. Весело. Вы можете обнаружить, что вам нужен декремент большего размера или что вы можете обойтись более тонким.
Сохраните форму, в которую вы внесли это изменение, в трафарет, если можете.
Вот быстрый/грязный VBA, который я использовал, чтобы применить изменение формулы ко всем блокам «Действие»:
Public Sub ApplyWrapTextPropertyToAllActionBlocks()
Const STR_ACTION_BLOCK_NAME As String = "Action with Wrap Text."
Const STR_DECREMENTER As String = "-0.08"
Dim objShape As Shape
Dim objActionBlock As Shape
For Each objShape In ActivePage.Shapes
If InStr(1, objShape.Name, STR_ACTION_BLOCK_NAME, vbBinaryCompare) <> 0 Then
Debug.Print "Found one: " & objShape.Name
Set objActionBlock = objShape
objActionBlock.CellsU("TxtWidth").Formula = "=MIN(Width" & STR_DECREMENTER & ",MAX(Char.Size,TEXTWIDTH(TheText)))"
End If
Next objShape
Конец сабвуфера
person
Tom
schedule
12.02.2017