Shape.RowType-Eigenschaft (Visio)

Artikel
10/16/2024

Ruft den Typ einer Zeile in den Abschnitten Geometrie, Verbindungspunkte, Steuerelemente oder in den Registerkarten ShapeSheet ab oder legt diese fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. RowType (Section, Row)

expression Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Section	Erforderlich	Integer	Der Index des Abschnitts, der die Zeile enthält.
Row	Erforderlich	Integer	Der Index der Zeile.

Rückgabewert

Ganze Zahl

Hinweise

Nachdem Sie den Typ einer Zeile ändern, verfügt der neue Zeilentyp möglicherweise über dieselben Zellen. Ihr Programm muss die entsprechenden Formeln für die neuen oder geänderten Zellen bereitstellen.

Sie können den gewünschten Zeilentyp angeben, indem Sie RowType festlegen, das einer der folgenden, von der Visio-Typenbibliothek im VisRowTags-Mitglied deklarierten Konstanten entspricht.

Konstante	Wert
visTagComponent	137
visTagMoveTo	138
visTagLineTo	139
visTagArcTo	140
visTagInfiniteLine	141
visTagEllipse	143
visTagEllipticalArcTo	144
visTagSplineBeg	165
visTagSplineSpan	166
visTagPolylineTo	193
visTagNURBSTo	195
visTagTab0	136
visTagTab2	150
visTagTab10	151
visTagTab60	181
visTagCnnctPt	153
visTagCnnctNamed	185
visTagCtlPt	162
visTagCtlPtTip	170

Wenn ein ungeeignetes Zeilenkennzeichen übergeben wird oder die Zeile nicht vorhanden ist, treten keine Änderungen auf und ein Fehler wird zurückgegeben.

Verwenden Sie die RowName-Eigenschaft für den Übergang von unbenannten zu benannten Verbindungspunktzeilen.

Eine Liste der gültigen Zeilenkonstanten finden Sie unter VisRowIndices und VisRowTags für eine Liste gültiger Zeilentagkonstanten.

Eine Liste der gültigen Abschnittskonstanten finden Sie unter VisSectionIndices .

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie sie die RowType-Eigenschaft verwenden, um den Typ einer ShapeSheet-Zeile zu ändern. Es zeichnet ein Rechteck auf einem Zeichenblatt und verbogen die Linien des Rechtecks, indem die Linien der Form in Bögen geändert werden. Dies erfolgt, indem zunächst die Zeilentypen des ShapeSheets für jede Linie des Rechtecks von "LineTo" in "ArcTo" und anschließend die Werte der X- und Y-Zellen in jeder dieser Zeilen geändert werden.

 
Public Sub RowType_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoCell As Visio.Cell 
 Dim strBowCell As String 
 Dim strBowFormula As String 
 Dim intCounter As Integer 
 
 'Set the value of the strBowCell string. 
 strBowCell = "Scratch.X1" 
 
 'Set the value of the strBowFormula string. 
 strBowFormula = "=Min(Width, Height) / 5" 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set vsoPage 
 'to the first page of the active document. 
 If vsoPage Is Nothing Then 
 
 Set vsoPage = ActiveDocument.Pages(1) 
 
 End If 
 
 'Draw a rectangle on the active page. 
 Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1) 
 
 'Add a scratch section and add a row to the scratch section. 
 vsoShape.AddSection visSectionScratch 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
 'Set vsoCell to the Scratch.X1 cell and set its formula. 
 Set vsoCell = vsoShape.Cells(strBowCell) 
 vsoCell.formula = strBowFormula 
 
 'Bow in or curve the rectangle's lines by changing 
 'each row type from LineTo to ArcTo and entering the bow value. 
 For intCounter = 1 To 4 
 
 vsoShape.RowType(visSectionFirstComponent, visRowVertex + intCounter) = visTagArcTo 
 Set vsoCell = vsoShape.CellsSRC(visSectionFirstComponent, visRowVertex + intCounter, 2) 
 vsoCell.formula = "-" & strBowCell 
 
 Next intCounter 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über