通过

Shape.AddSection 方法 (Visio)

  • 项目

向 ShapeSheet 电子表格中添加新内容。

语法

expression。 AddSection( _Section_ )

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

参数

名称 必需/可选 数据类型 说明
Section 必需 Integer 要添加的内容的类型。

返回值

整数

备注

AddSection 方法常用于向形状中添加一个或多个“Geometry”内容。 也可以使用 AddSection 向形状中添加其他内容，如“Scratch”、“Controls”、“Connection Points”、“Actions”、“User-Defined Cells”以及“ShapeData”。 AddSection 方法返回已添加内容的逻辑索引。

可以添加到形状的节对应于在 ShapeSheet 窗口中显示形状时 “插入节 ”对话框显示的选项。

如果尝试在已包含“non-Geometry”内容的形状中添加“non-Geometry”内容，AddSection 方法将引发异常。 请使用 SectionExists 属性来确定形状中是否已包含带有给定逻辑索引的内容。

新的内容中没有任何行。 请使用 AddRow 方法向新内容中添加行。

GeometryCount 属性返回形状中包含的“Geometry”内容的数量。 请使用以下代码向形状中添加“Geometry”内容：

Shape.AddSection(visSectionFirstComponent + i)

其中 0 <= i <visSectionLastComponent - visSectionFirstComponent。

  • 当 0 <= i <Shape.GeometryCount 时，新节位于当前第 i 个 Geometry 节之前。

  • 当 Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent 时，新节是最后一节。

示例

下面的宏说明如何向矩形的 ShapeSheet 中添加“Scratch”内容。 运行此宏之前，请确保绘图页在 Visio 窗口中处于活动状态。

 
Public Sub AddSection_Example() 
 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 
 'Get the active page. 
 Set vsoPage = ActivePage 
 
 '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 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。