計算Visio形狀中的文本行數

Question

有沒有辦法對Visio形狀內的文本行數進行計數？如linecount？

我已經試過了Visio形狀的Rowcount，它沒有返回任何反映Visio Shape內部文本行的東西！下面是我創建的示例代碼

Sub something() 
Dim intRows 
Dim vsoShape As Visio.Shape 
Set vsoShape = ActiveWindow.Selection.PrimaryItem 
intRows = vsoShape.RowCount(Visio.visSectionProp) 
MsgBox intRows 
End Sub 

Answer 1

沒有內置的方法來計算我知道的文本行數。

RowCount用於計算特定形狀圖部分中的行數。

您可以調用形狀上的BoundingBox方法並獲取形狀文本區域的高度和寬度，但是您必須猜測多少行可能是字體大小的函數。

如果您可以在您使用的圖表中的圖形上強制執行標準字體和字符大小，則應該能夠根據文本框的高度來確定有多少行。

我假設你問的是Visio已經完成的換行數，而不是文本中的換行符數。