Shape.AddRow 方法 (Visio)

會將列新增到 ShapeSheet 區段中指定的位置。

語法

expression。 AddRow( _Section_ , _Row_ , _RowTag_ )

表達 代表 Shape 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Section	必要	整數	要新增列的區段
Row	必要	整數	要新增列的位置
RowTag	必要	整數	要新增列的類型

傳回值

整數

註解

如果 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 支援與意見反應。