计算Visio Shape中的文本行数

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已完成的换行数后，而不是文本中的换行符数。