VBA : Initialiser un chemin d'image en une variable
Bonjour à tous,
Ayant un niveau très faible en programmation je cherche à faire quelque chose qui à priori est simple, initialiser le chemin d'une image en une variable.
Explications:
J'ai uniquement programmé dans un userform, mon programme complet permet de faire apparaître des images dans ce userform, mais à chaque boucle je dois mettre le chemin de l'image...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Private Sub UserForm_Initialize()
'Initialisation des Signaux et Aiguilles en positions False dites Normal sauf pour S2
'car l'aiguille est en position pour l'itinéraire partant de S1
'Dans les propriétés du bouton S2, il a été initialisé en True pour être en concordance
'avec la couleur d'initialisation
Me.Image5.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image4.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg ")
Me.Image3.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image2.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ")
Me.Image1.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image7.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\ag.jpg ")
Me.Image10.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\ag.jpg ")
End Sub |
J'aurai aimé pouvoir trouver l'équivalent d'une déclaration de variable dans un sub général ou d'initialisation ou par exemple il y aurait cet effet.
vert = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Mais cela n'est pas possible de cette manière avec un chemin.
Y a t-il la possibilité de ne pas retaper le chemin à chaque image ? Une solution dans l'initialisation ? le général de mon userform ?
Je n'ai pas trouvé réponse à cette question sur internet, et mon niveau est très faible...
En vous remerciant, bonne journée.
Clem.
