Метод Shape.DeleteSection (Visio)

Статья
04/07/2023

Удаляет раздел таблицы фигур.

Синтаксис

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

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

Параметры

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

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

Отсутствует

Примечания

При удалении раздела Таблицы фигур все строки в разделе удаляются автоматически. Если указанный раздел не существует, ничего не удаляется и ошибка не создается.

Если раздел Geometry удален, все последующие разделы Geometry смещаются вверх, так как они индексируются и в индексированном диапазоне не может существовать пробелов.

Вы можете удалить любой раздел, кроме раздела, представленного visSectionObject (хотя вы можете удалить строки в этом разделе).

Значения индекса разделов объявляются в библиотеке типов Visio в VisSectionIndices.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как удалить раздел Таблицы фигур.

Public Sub DeleteSection_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 of the rectangle. 
 vsoShape.AddSection visSectionScratch 
 
 'Delete the scratch section from the ShapeSheet. 
 vsoShape.DeleteSection visSectionScratch 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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