Userform dynamique : effacer des labels par macro Résolu

Question

Bonjour, 

Je cherche à faire un dessin sur un userform à l'aide de traits que sont des labels de hauteur égale à 1. J'y arrive, pas de problème.

Set trait = MultiPage1.Pages(3).Controls.Add("Forms.Label.1", , True)
    With trait
        .height = 1
        .top = origine_y
        .left = origine_x
        .width = largeurp.Value / echelle
        .BorderStyle = 1 'indispensable
    End With

Cependant, en faisant ensuite varier la variable échelle via le userform, les dessins se superposent. Pourriez vous m'aider en m'indiquant la commande à appliquer pour réinitialiser la feuille à chaque fois ?
Merci de votre aide

pijaku · Answer

Salut,

Tout ce que tu dois connaître sur les userforms et leurs contrôles se trouve :
ICI et LA.

Notamment la suppression de contrôles : by silkyroad

ycoquen · Answer

J'ai la solution ! =)

Set blanc = MultiPage1.Pages(3).Controls.Add("Forms.Image.1", , True)
    With blanc
        .height = 500
        .top = 0
        .left = 200
        .width = 500
        .BorderStyle = 0 'indispensable
    End With

Merci des propositions !

Userform dynamique : effacer des labels par macro

2 réponses

Votre réponse

Discussions similaires