RowType プロパティ (Visio)Shape.RowType property (Visio)

[Geometry]、[Connection Points]、[Controls]、または [Tabs] の各シェイプシート セクションに対して、行の種類を取得または設定します。Gets or sets the type of a row in a Geometry, Connection Points, Controls, or Tabs ShapeSheet section. 値の取得と設定が可能です。Read/write.


RowType(セクション)expression.RowType (Section, Row)

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
SectionSection 必須Required 整数型 (Integer)Integer 行を含むセクションのインデックスです。The index of the section that contains the row.
RowRow 必須Required 整数型 (Integer)Integer 行のインデックスです。The index of the row.

戻り値Return value



行の種類を変更すると、新しい行の種類で同じセルを使用できなくなる場合があります。After you change a row's type, the new row type may or may not have the same cells. 新しいセルまたは変更したセルに適切な数式を指定する必要があります。Your program must provide the appropriate formulas for the new or changed cells.

RowTypeを member VisRowTags の Visio タイプライブラリで宣言されている次の定数のいずれかに等しい値に設定することによって、目的の行の種類を指定できます。You can specify the type of row you want by setting RowType equal to any of the following constants declared by the Visio type library in member VisRowTags.

定数Constant Value
visTagComponentvisTagComponent 137137
visTagMoveTovisTagMoveTo 138138
visTagLineTovisTagLineTo 139139
visTagArcTovisTagArcTo 140140
visTagInfiniteLinevisTagInfiniteLine 141141
visTagEllipsevisTagEllipse 143143
visTagEllipticalArcTovisTagEllipticalArcTo 144144
visTagSplineBegvisTagSplineBeg 165165
visTagSplineSpanvisTagSplineSpan 166166
visTagPolylineTovisTagPolylineTo 193193
visTagNURBSTovisTagNURBSTo 195195
visTagTab0visTagTab0 136136
visTagTab2visTagTab2 150150
visTagTab10visTagTab10 151151
visTagTab60visTagTab60 181181
visTagCnnctPtvisTagCnnctPt 153153
visTagCnnctNamedvisTagCnnctNamed 185185
visTagCtlPtvisTagCtlPt 162162
visTagCtlPtTipvisTagCtlPtTip 170170

不適切な行タグが渡された場合、または行が存在しない場合は、何も変更されず、エラーが返されます。If an inappropriate row tag is passed or the row does not exist, no changes occur and an error is returned.

RowNameプロパティを使用して、接続ポイント行を名前なしから名前付きに移行します。Use the RowName property to transition from unnamed to named Connection Points rows.

有効な行の定数と**VisRowTags** の一覧については、 VisRowIndices を参照してください。See VisRowIndices for a list of valid row constants and VisRowTags for a list of valid row tag constants.

有効なセクション定数の一覧については、「 VisSectionIndices 」を参照してください。See VisSectionIndices for a list of valid section constants.


次の Microsoft Visual Basic for Applications (VBA) マクロは、 RowTypeプロパティを使用して、シェイプシートの行の種類を変更する方法を示しています。This Microsoft Visual Basic for Applications (VBA) macro shows how to use the RowType property to change the type of a ShapeSheet row. ページに長方形、円弧、または曲線を描き、図形の辺を円弧に変換して四角形の辺を曲線にします。It draws a rectangle on a page and bows, or curves, the lines of the rectangle by changing the shape's lines to arcs. これには、四角形の各辺でシェイプシート行の種類を LineTo から ArcTo に変更し、各行の [X] セルと [Y] セルの値を変更します。This is accomplished by changing the ShapeSheet row types for each side of the rectangle from LineTo to ArcTo and then changing the values of the X and Y cells in each of these rows.

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 and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.