计算 Visio 形状中文本的行数

Question

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

我已经在 Visio 形状上尝试了 Rowcount，它没有 return 任何反映 Visio 形状内的文本行的东西！下面是我创建的示例代码

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

计算 Visio 形状中文本的行数

Count number of rows of text in a Visio Shape

vba

visio