Vba 计算Visio形状中的文本行数

有没有办法计算Visio形状中的文本行数？比如行数

我在Visio形状上尝试了Rowcount，但它没有返回任何反映Visio形状内文本行的内容！下面是我创建的示例代码

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

---

据我所知，没有内置的方法来计算文本行数

RowCount用于计算特定shapesheet部分中的行数

您可以对形状调用BoundingBox方法并获取形状文本区域的高度和宽度，但您必须猜测有多少行，这可能是字体大小的函数

如果您能够对正在使用的图表中的形状强制使用标准字体和字符大小，那么您应该能够根据文本框的高度判断有多少行

---

我假设您询问的是Visio完成的换行次数，而不是文本中的换行次数。

谢谢。我会听从你的建议！