Bonjour à tous,
J'ai un userform dans lequels j'ai inséré des objets "image".
Je voudrais, via des variables, modifier les attributs de cet objets, à savoir son positionnement et ses dimensions.
voici mon code actuel (qui se trouve dans le dit userform) :Quand j'ouvre mon userform, rien ne s'affiche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 Private Sub variables() 'Dimensions des objet "image" Dim larg1, haut1 As Integer larg1 = 300 'largeur simple haut1 = 200 'hauteur simple 'position des angles supérieurs gauche des objets "images" de gauche à droit puis de haut en bas (5 x 3) Dim anglex1 As Integer Dim angley1 As Integer anglex1 = 500 angley1 = 40 End Sub Private Sub UserForm_activate() ' Plein écran de l'Userform 4 With UserForm4 .StartUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With ' Mise en page automatique de chaque objet "image" With Image1 .Width = larg1 .Height = haut1 .Left = anglex1 .Top = angley1 End With ' Insertion d'une image dans un objet "image" Set g = Sheets("ANO Secu").ChartObjects(1).Chart Fichier = ActiveWorkbook.Path & "\" & "graphe.bmp" g.Export Filename:=Fichier, FilterName:="bmp" Image1.Picture = LoadPicture(Fichier) ' Ajustement automatique de l'image dans l'objet "image" Me.Image1.PictureSizeMode = fmPictureSizeModeStretch End Sub
Par contre, quand je ne passe pas par les variables comme ceci :... tout s'affiche correctement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 With Image1 .Width = 300 .Height = 200 .Left = 500 .Top = 40 End With
J'ai absolument besoin de passer par des variables car j'ai de très nombreux objets images et j'aimerais modifier régulièrement tous les attributs de manières identiques sans avoir à me taper les objets un par un.
Merci d'avance.
Partager