Метод Selection.Trim (Visio)

  • Статья

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

Синтаксис

выражение. Trim

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

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

Отсутствует

Примечания

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

Новые фигуры наследуют форматирование первой выделенной фигуры, не имеют текста и являются самыми верхними фигурами в контейнере— фигурой _n_th, _n_th — 1 фигурой, _n_th — 2 фигурой и т. д. в коллекции Shapes их содержащей фигуры, где n = count. Исходные фигуры удаляются, а после завершения операции фигуры не выбираются.

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

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

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

Пример

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

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 и обратная связь.