Метод Shape.AddSection (Visio)

Статья
04/07/2023

Добавляет новый раздел в электронную таблицу ShapeSheet.

Синтаксис

выражение. AddSection( _Section_ )

Выражение Переменная, представляющая объект Shape .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Section	Обязательный	Integer	Тип добавляемого раздела.

Возвращаемое значение

Целое число

Замечания

Метод AddSection часто используется для добавления одного или нескольких разделов Geometry в фигуру. Вы также можете использовать AddSection для добавления в фигуру других разделов, таких как Scratch, Controls, Connection Points, Actions, User-Defined Cells и ShapeData. Метод AddSection возвращает логический индекс добавленного раздела.

Разделы, которые можно добавить в фигуру, соответствуют параметрам, отображаемым в диалоговом окне Вставка раздела , когда фигура отображается в окне Таблицы фигур.

При попытке добавить раздел, отличный от геометрии, к фигуре, которая уже содержит этот раздел, метод AddSection вызовет исключение. Используйте свойство SectionExists , чтобы определить, содержит ли фигура раздел с заданным логическим индексом.

Новый раздел не содержит строк. Используйте метод AddRow для добавления строк в новый раздел.

Свойство GeometryCount возвращает количество разделов Geometry, включенных в фигуру. Используйте следующий код, чтобы добавить раздел Geometry в фигуру:

Shape.AddSection(visSectionFirstComponent + i)

where 0 <= i <visSectionLastComponent - visSectionFirstComponent.

Если 0 <= i <Shape.GeometryCount, новый раздел предшествует настоящему i'му разделу Geometry.
Когда Shape.GeometryCount<= i <visSectionLastComponent - visSectionFirstComponent, новый раздел является последним разделом.

Пример

В следующем макросе показано, как добавить раздел 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 и обратная связь.

Поделиться через