![]() Another tip for forms: check out the control anchoring feature, which was introduced in Access 2007 and is described in the video Make a text box. ObjActionBlock.CellsU("TxtWidth").Formula = "=MIN(Width" & STR_DECREMENTER & ",MAX(Char. The text will wrap automatically, and scroll bars will appear by default when there is still too much text to display (unless, of course, you’ve turned scroll bars off in the Property Sheet). If InStr(1, objShape.Name, STR_ACTION_BLOCK_NAME, vbBinar圜ompare) 0 Thenĭebug.Print "Found one: " & objShape.Name Here is the quick/dirty VBA I used to apply the formula change across all the 'Action' blocks: Public Sub ApplyWrapTextPropertyToAllActionBlocks()Ĭonst STR_ACTION_BLOCK_NAME As String = "Action with Wrap Text."Ĭonst STR_DECREMENTER As String = "-0.08" Save the shape to which you've made this change into the stencil if you can. You may find you need a larger decrementer or that you can get away with a finer one. Without it, I couldn't make the shape any smaller because the formula would not allow the text width to be smaller than the shape width, and the shape width appeared to automatically limit itself to, at minimum, the text width. ![]() to '=MIN(Width-0.08,MAX(Char.Size,TEXTWIDTH(TheText)))'.from (something like) '=MAX(Char.Size,TEXTWIDTH(TheText))'.Change the formula in the TxtWidth property cell. ![]() Right-click shape of interest and select 'Show Shapesheet'.If you cannot see the 'Developer' tab on the ribbon:įile > Options > Customize Ribbon >.SysML Stencil (source unknown) 'Activity' shape in 'Activity Diagram' shapes collection. Real text wrap no bloody carriage returns.
0 Comments
Leave a Reply. |