Anzahl der Textzeilen in einer Visio-Form zählen

Question

Gibt es eine Möglichkeit, die Anzahl der Textzeilen in einer Visio-Form zu zählen? Wie Linezähler?

Ich habe Rowcount auf einer Visio-Form versucht, und es gab nichts zurück, was die Textzeilen innerhalb der Visio Shape widerspiegelt! Unten ist der von mir erstellte Beispielcode

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

Es gibt keine integrierte Möglichkeit, die Anzahl der Textzeilen zu zählen, die mir bekannt sind.

Der RowCount dient zum Zählen der Anzahl der Zeilen in einem bestimmten Shapesheet-Abschnitt.

Sie können die BoundingBox-Methode für eine Form aufrufen und die Höhe und Breite des Textbereichs für die Form zurückgeben, aber Sie müssen schätzen, wie viele Zeilen das ist, möglicherweise in Abhängigkeit von der Schriftgröße .

Wenn Sie in den Diagrammen, mit denen Sie arbeiten, eine Standardschriftart und -zeichengröße für Shapes erzwingen können, sollten Sie anhand der Höhe des Textfelds feststellen können, wie viele Zeilen vorhanden sind.

Ich nehme an, Sie fragen nach der Anzahl der Zeilenumbrüche, die Visio getan hat, nicht die Anzahl der Zeilenumbrüche im Text.