реальный перенос текста;кровавая каретка не возвращается.
Visio 2010. Трафарет SysML (источник неизвестен) Форма «Деятельность» в коллекции фигур «Диаграмма деятельности».
- Если вы не видите 'Вкладка «Разработчик» на ленте:
- Щелкните форму интереса правой кнопкой мыши и выберите «Показать форму».
- Найдите интересующее свойство ширины
- Измените формулу в ячейке свойства TxtWidth
- из (что-то вроде)'= MAX (Char.Size, TEXTWIDTH (TheText))'
- до '= MIN (Width-0,08, MAX (Char.Size, TEXTWIDTH (TheText)))'
- Наслаждайтесь.
Волшебство здесь - уменьшитель -0.08.Без этого я не смог бы сделать форму меньше, потому что формула не позволила бы ширине текста быть меньше ширины формы, а ширина формы автоматически ограничивалась, как минимум, шириной текста.Веселье.Вы можете обнаружить, что нужно большего размера или что вы можете получить более тонкий.
Сохраните фигуру, в которую вы внесли это изменение, в трафарет, если можете.
Вот быстрый / грязный VBA, который я использовал, чтобы применить изменение формулы ко всем блокам 'Action':
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
End Sub