Shape.AddRow メソッド (Visio)

シェイプシート セクションの指定された位置に行を追加します。

構文

expression. AddRow( _Section_ , _Row_ , _RowTag_ )

式Shape オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Section	必須	Integer	行を追加するセクションです。
行	必須	Integer	行を追加する位置です。
RowTag	必須	Integer	追加する行の種類です。

戻り値

整数

注釈

シェイプシートのセクションが存在しない場合、空の行を含むセクションが作成されます。 新しい行の新しいセルは、既定の数式で初期化されます (数式が適用できる場合)。 初期化できない場合は、新しいセルの数式を設定するステートメントをプログラムに記述する必要があります。 新しい行を追加できない場合はエラーが生成されます。

Visio タイプ ライブラリの VisRowIndices には、visRow というプレフィックスが付いた行定数が定義されています。

[Geometry] セクション、[Connection Points] セクション、および [Controls] セクションの行定数には、visTag というプレフィックスが付き、Visio タイプ ライブラリの VisRowTags で定義されています。 これらの定数の一覧については、RowType プロパティを参照してください。

Visio タイプ ライブラリによって宣言された行定数は、セクションの行が始まる基本位置として機能します。 これらの定数にオフセットを追加して、最初の行以降 (visRowFirst +0、visRowFirst + 1 など) を指定します。 セクションの末尾に行を追加するには、Row 引数に定数 visRowLast を渡します。 返される値は、実際の行インデックスです。

RowTag 引数は、追加する行の種類を指定します。 セクションの既定の行の種類を生成するには、visTagDefault (0) を引数 RowTag として渡します。 [Geometry]、[Connection Points]、[Controls] の各セクションに行を追加するときには、明示的なタグを使用すると便利です。 これらのセクションで有効な行の種類については、RowType プロパティを参照してください。 無効な種類の行を渡すと、エラーが生成されます。

[Character]、[Tabs]、[Paragraph] セクションに行を追加しようとすると、エラーが発生します。

AddRow メソッドは名前付きの行を追加できません。 名前付きの行を追加するには、AddNamedRow メソッドを使用します。

名前付きの行を含むセクション ([Connection Points] セクションや [Controls] セクションなど) に行を追加する場合、Row 引数は無視されます。 既定値では、名前付きの行は、追加された順に、Row_1、Row_2 などの名前が付けられます。 名前の順序は、既存の行または直前に削除された行に左右されます。

例

次の例は、シェイプシートにセクションを追加して、指定した位置でセクションに行を追加する方法を示しています。

 
Public Sub AddRow_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 'If there isn't an active page, set the Page object 
 '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 to the ShapeSheet. 
 vsoShape.AddSection visSectionScratch 
 
 'Add a row to the scratch section. 
 vsoShape.AddRow visSectionScratch, visRowScratch, 0 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。