Partager via


Shape.BringForward, méthode (Visio)

Rapproche la ou les formes sélectionnées d'un rang dans la hiérarchie.

Syntaxe

expression. BringForward

expression Une variable qui représente uneForme d’objet.

Valeur renvoyée

Aucune

Exemple

La macro suivante indique comment rapprocher une forme dans la hiérarchie sur une page.

 
Public Sub BringForward_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 
 'Draw three rectangles. 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 1, 4, 4) 
 vsoShape1.Text = "1" 
 Set vsoShape2 = ActivePage.DrawRectangle(2, 2, 5, 5) 
 vsoShape2.Text = "2" 
 Set vsoShape3 = ActivePage.DrawRectangle(3, 3, 6, 6) 
 vsoShape3.Text = "3" 
 
 'Bring vsoShape1 forward one position in the z-order. 
 vsoShape1.BringForward 
 
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.