Метод Selection.Trim (Visio)

Обрезает выбранные фигуры на более мелкие фигуры.

Синтаксис

выражение. Trim

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

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

Отсутствует

Примечания

Вызов метода Trim аналогичен нажатию кнопки Trim в пользовательском интерфейсе Microsoft Visio ( нажмите кнопку Операции в группе Shape Design на вкладке Разработчик ).

Новые фигуры наследуют форматирование первой выбранной фигуры, не имеют текста и являются самыми верхними фигурами в своем контейнере: _n_th фигура, _n_th — 1, _n_th — 2 и т. д. в коллекции "Фигуры ", где n = счет. По завершении операции исходные фигуры удаляются, и фигуры не выделяются.

Метод Trim аналогичен методу Fragment , но отличается следующими особенностями:

• Фигуры, созданные методом Обрезать , совпадают с различными контурами выделенных фигур с учетом перекрытия.

• Фигуры, созданные методом фрагмента , совпадают с различными областями выделенных фигур с учетом перекрытия.

Пример

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

Public Sub Trim_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim shapeCount As Integer 
 
 'Draw two shapes that intersect 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 4, 4, 1) 
 Set vsoShape2 = ActivePage.DrawOval(2, 6, 3, 2) 
 
 'Deselect the oval and then select both of the new shapes on the page 
 ActiveWindow.DeselectAll 
 ActiveWindow.SelectAll 
 
 'Create a selection object and assign the selected shapes to it 
 Dim vsoSelection As Visio.Selection 
 Set vsoSelection = ActiveWindow.Selection 
 
 'Trim the selected shapes 
 vsoSelection.Trim 
 
 'Move one of the newly created shapes 
 ActiveWindow.DeselectAll 
 shapeCount = ActivePage.Shapes.Count 
 
 Set vsoShape1 = ActivePage.Shapes(shapeCount - 2) 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Selection.Move 2, 2 
 
End Sub

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

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