Shape.AddRow 方法 (Visio)

将行添加到“ShapeSheet”内容的指定位置。

语法

expression. AddRow( _Section_ , _Row_ , _RowTag_ )

表达 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
Section	必需	Integer	要在其中添加行的内容。
行	必需	Integer	要在其中添加行的位置。
RowTag	必需	Integer	要添加的行的类型。

返回值

整数

备注

如果“ShapeSheet”内容尚不存在，则应使用空行创建该内容。 应使用默认公式对新行中的新单元格进行初始化（如果适用）。 否则，程序必须包含用于为新单元格设置公式的语句。 如果无法添加新行，则将生成错误。

Visio 类型库在 VisRowIndices 中声明带有 visRow 前缀的行常量。

“Geometry”、“Connection Points”和“Controls”内容中的行的常量带有 visTag 前缀且由 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，依此类推。 但是，命名顺序受任何现有行或以前删除的行影响。

示例

下面的示例说明如何向 ShapeSheet 中添加内容以及如何在该内容的指定位置添加行。

 
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。