文本換行使用中的情況下，在Microsoft Visio

Question

我想提出一個用例圖，而問題是：

我鍵入一些文字，它總是在一行中顯示，使我的用例elipse太大。有誰知道如何讓它進入下一行？我覺得這個選項在StarUML中被稱爲換行文本...

提前謝謝！

Nanek

Answer 1

嘗試編輯對象屬性對話框中的TextBox屬性。

Answer 2

程序用於施加Word環繞：

1. 選擇從圖中區域要應用Word環繞的元件。

2. 右鍵單擊並選擇[格式] - > [文字包裝名稱]菜單。

再次執行上述步驟以刪除Word Wrap。

Answer 3

點擊進入文本框，然後在下一行所需的文本之間按回車。

Answer 4

我發現通過在文字之間加入額外的空格，我可以讓Visio來包裝文字。我必須添加足夠的空間，以便能夠超出用例的文本框的邊界。有時這會導致兩個不同單詞之間出現換行符，所以我必須在用例名稱的其他地方添加額外的空格。

這確實會導致用例在Visio的Model Explorer任務窗口中顯示得很奇怪，但這並沒有打擾到我。

Answer 5

在Microsoft Visio 2007中，首先需要選擇形狀，右鍵單擊它並選擇「格式」，然後選擇「保護...」並取消選中「文本」複選框，然後單擊確定。這將允許編輯形狀文本。 完成後，您可以選擇您的用例形狀，從標準工具欄中選擇「文本工具」。用例文本將顯示爲文本框。您可以在必要時按Enter鍵，然後單擊「指針工具」完成操作。

Answer 6

選擇形狀。 使用此菜單：[主頁] - > [工具] - > [文本] 現在可以在形狀上進行文本編輯。 現在只需按Shift + Enter就可以在每一個你想要結束的地方輸入，你可以手動換行。 好運

Answer 7

1. 右鍵單擊該用例。
2. 選擇「顯示ShapeSheet」。
3. 向下滾動到「保護」部分。
4. 將「LockTextEdit」附近的值更改爲0。
5. 關閉ShapeSheet。

現在按F2並編輯名稱。添加換行符輸入。

單獨取消保護每個用例非常繁瑣。如果您正在創建一個新圖，您可能需要取消保護一個用例並將其複製，而不是從調色板添加新用例。

向用例名稱中添加換行符的缺點是，當您修改其屬性時，該名稱將截斷爲第一個換行符。幸運的是，除了名稱和文檔之外，用例沒有很多有用的屬性。

Answer 8

首先刪除由文本的保護： 右鍵單擊使用情況，選擇「格式」，然後「保護」，取消選中「文本」

接下來，再次選擇用例 然後按下鍵「 F2「 ，現在你可以輸入你的文字了。按「Enter」鍵編輯多條線 享受

Answer 9

當您希望編輯形狀時，需要解鎖應用於形狀的保護屬性。這裏沒有答案告訴你如何顯示「形狀數據」。

1. 您需要選擇頂部的文件菜單。選擇「選項」並選擇「高級」
2. 向下滾動直到結束並選擇「在開發者模式下運行」。按確定。
3. 選擇頂部的Home菜單返回到您的圖表。
4. 右鍵單擊您的形狀（假設您正在編輯用例形狀）
5. 選擇「顯示ShapeSheet」選項。
6. 您將能夠在圖表窗口下方看到一個窗口。在此窗口中，向下滾動，直至看到「保護」首選項。
7. 選擇「LockTextEdit」變量並雙擊並將1更改爲0.按enter保存您的偏好。
8. 現在單擊形狀並從格式菜單中選擇「文本」。
9. 單擊文本，您將能夠編輯它。在需要插入換行符的文本之間按Enter鍵。

Answer 10

Real text wrap;沒有血腥的回車。

Visio 2010. SysML模板（來源未知）'活動圖'中的'活動'形狀對形狀集合進行了形狀化。

1. 如果你不能看到功能區中的「開發者」選項卡：
   文件>選項>自定義功能區> [選擇「開發者」的「主選項卡」列表]
2. 右鍵單擊感興趣的形狀和選擇 '顯示ShapeSheet'
3. 查找感興趣
   文本的width屬性從（像）變換> TxtWidth
4. 變化在TxtWidth屬性單元
   • 式「= MAX（C har.Size，文本寬度（TheText））」
   • 到 '= MIN（寬度 - 0.08，MAX（Char.Size，文本寬度（TheText）））'
5. 享受。

這裏的魔術是減數-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 

末次