Selection.AddToGroup, méthode (Visio)

Article
04/07/2023

Ajoute les formes sélectionnées au groupe sélectionné.

Syntaxe

expression. AddToGroup

Expression Variable qui représente un objet Selection .

Valeur renvoyée

Aucune

Remarques

La sélection actuelle doit comprendre les formes à ajouter et le groupe auquel vous souhaitez les ajouter. Le groupe doit être la sélection principale ou le seul groupe sélectionné.

Exemple

La macro suivante indique comment utiliser la méthode AddToGroup pour ajouter les formes sélectionnées à un groupe sélectionné.

Avant d'exécuter cette macro, ouvrez le gabarit Formes simples ou un document basé sur le modèle Diagramme simple.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via