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が行った行の折り返しの数をテキストの改行の数ではなく求めていると仮定しています。