Userform dynamique : effacer des labels par macro
Résolu
ycoquen
-
ycoquen -
ycoquen -
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
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
2 réponses
-
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 -
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 !
