Userform dynamique : effacer des labels par macro

Résolu
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
A voir également:

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
Réponse 2 / 2
ycoquen
 
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 !
0

Discussions similaires

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport
Utilisateur anonyme -
TomH. -

13 réponses
Nom de champs du tableau croisé dynamique non valide
Kazooie123 -
SajDri -

6 réponses
IP dynamique sous freebox
Camille -
sfdsf -

29 réponses
bibliothèque de liaisons dynamique
addm69 -
Chris -

11 réponses
Erreur "Le nom du champ du tableau croisé dynamique n'est pas valide"
anastasiaS974 -
anastasiaS974 -

4 réponses