Метод Selection.AddToGroup (Visio)

Статья
04/07/2023

Добавляет выбранные фигуры в выбранную группу.

Синтаксис

expression. AddToGroup

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

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

Отсутствует

Примечания

Текущий выделенный фрагмент должен содержать как добавляемые фигуры, так и группу, в которую вы хотите их добавить. Группа должна быть основной или единственной группой в выделенном фрагменте.

Пример

В следующем макросе показано, как использовать метод AddToGroup для добавления выбранных фигур в выбранную группу.

Перед выполнением этого макроса откройте набор элементов "Основные фигуры " или документ на основе шаблона "Базовая схема ".

 
Public Sub AddToGroup_Example() 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Square"), 3, 8 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Pentagon"), 4, 8 
 
 Application.ActiveWindow.SelectAll 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Pentagon"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Square"), visSelect 
 ActiveWindow.Selection.Group 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Ellipse"), 5, 6 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Ellipse"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Sheet.3"), visSelect 
 ActiveWindow.Selection.AddToGroup 
 
End Sub

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

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

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