Pour y voir plus clair, il devient nécessaire d'effacer tous ces rectangles, ce qui est un peu fastidieux à la main.
Pour faciliter l'effacement , créer un autre bouton et compléter son gestionnaire d'événements Click comme suit :
Attention ce premier script ne fonctionne correctement que s'il n'y a pas de rectangles déjà créés et non effacés au moment où vous créez le bouton
 
Script 3a
Sub Click(Source As Buttoncontrol)
 Set dessin=currentdocument.drawnobjects(currentdocument.drawnobjects.count-1)
 If dessin Isa "rectangle" Then dessin.clear
End Sub

Ce script efface les rectangles un par un à chaque clic du bouton.

Si vous avez du courage, si vous avez tracé beaucoup trop de rectangles, ou si vous faites du copier-coller, vous pouvez le compléter comme ci-dessous (Script 3b) Ce second script fonctionne dans tous les cas : il efface tous les objets dessinés sauf les boutons.
 
Script3b
Sub Click(Source As Buttoncontrol)
 comptebouton=0
 For i=0 To currentdocument.drawnobjects.count-1
   If currentdocument.drawnobjects(i) Isa "buttonControl" Then Comptebouton=comptebouton+1
 Next
 dc=1
 While Currentdocument.drawnobjects.count>comptebouton
   Set dessin= Currentdocument.drawnobjects(Currentdocument.drawnobjects.count-dc) 
   If not(dessin Isa "ButtonControl") Then dessin.clear else dc=dc+1
 Wend	
End Sub

C'est un peu plus long à taper , mais un seul clic efface tous les rectangles d'un coup ! Nous saurons expliquer un peu plus tard la signification de chaque ligne
 

©2003 Scientillula.net