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) :
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
Quand j'ouvre mon userform, rien ne s'affiche.
Par contre, quand je ne passe pas par les variables comme ceci :
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
... tout s'affiche correctement.

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.