Selection.Trim, méthode (Visio)

Article
04/07/2023

Découpe les formes sélectionnées en formes plus petites.

Syntaxe

expression. Trim

Expression Variable qui représente un objet Selection .

Valeur renvoyée

Aucune

Remarques

Appeler la méthode Trim revient à cliquer sur Coupure dans l’interface utilisateur de Microsoft Visio (cliquez sur Opérations dans le groupe Création de la forme de l’onglet Développeur).

Les nouvelles formes héritent de la mise en forme de la première forme sélectionnée, n’ont pas de texte et sont les formes les plus en haut de leur conteneur : la forme _n_th, _n_th - 1 forme, _n_th - 2, et ainsi de suite dans la collection Shapes de leur forme contenante, où n = nombre. Les formes d'origine sont supprimées et aucune forme n'est sélectionnée une fois l'opération terminée.

La méthode Trim et la méthode Fragment sont similaires, mais diffèrent comme suit :

Les formes générées à l'aide de la méthode Trim coïncident avec les chemins distincts des formes sélectionnées, en tenant compte également du chevauchement.
Les formes générées à l'aide de la méthode Fragment coïncident avec les régions distinctes des formes sélectionnées, en tenant compte également du chevauchement.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la méthode Trim pour découper les formes sélectionnées en formes plus petites le long de leurs intersections.

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

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