Objet "Image" dans un Userform

Version imprimable

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:

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:

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.

14/12/2016, 13h39
Igloobel

Bonjour,

Je pense que c'est une histoire de déclaration.

Dim déclare au sein de la procédure sub et dès que tu quittes cette procédure les variables se vident !!!

donc tu as plusieurs solutions :
1 - tu passes en paramètre tes variables
2 - tu déclares avec Public dans un module à l'extérieur de "sub" et "Function" (c'est pratique et disponible dans toutes tes "sub" de ton classeurs c'est ce que je fais)
3 - tu peux déclarer avec Dim à l'extérieur de sub et Function et dans ce cas c'est disponible au sein du module ou page Userform

Moi personnellement je préfère la 2ème solution que je trouve plus simple

tu dis

A+
14/12/2016, 14h19
kiki29

Salut, tu pourrais t'inspirer de Visualisation d'une liste de fichiers PDF dans une UserForm via IExplorer pour le redimensionnement

Salut Igloobel.

Merci pour tes réponses.
J'ai procédé selon ta 2ème méthode (qui s'avère être très utilisée apparement).
Néanmoins, je me retrouve avec le même problème.

J'ai donc écrit ce code dans un module que je viens de créer :
Code:

1 2 3 4 5 6 7 8 9 10 'Dimensions des objet "image" Public larg1, haut1 As Integer 'position des angles supérieurs gauche des objets "images" Public anglex1 As Integer Public angley1 As Integer larg1 = 300 'largeur simple haut1 = 200 'hauteur simple anglex1 = 500 angley1 = 40
Du coup je me retrouve avec une erreur qui apprait :
Erreur de compilation
Instruction incorrecte à l'extérieur d'une procédure

Peux tu m'aider à ce sujet?

Kiki29, merci pour ton lien qui est très interessant, je vais d'ailleurs m'en inspirer. Mais j'aimerais quand même savoir pourquoi mes variables ne fonctionnent pas ;)

14/12/2016, 21h13
unparia
Bonjour
Le message est pourtant clair :
Code:

1 2 3 4 larg1 = 300 'largeur simple haut1 = 200 'hauteur simple anglex1 = 500 angley1 = 40
Des initialisations de variables, donc, ne saurait se trouver que dans une procédure (celle de ton choic ... évènementielle, par exemple ...mais UNE PROCEDURE..
C'est là le B.A.BA

tu peut pas lettre cela comme ca dans un module quel qu'il soit
Code:

1 2 3 4 5 6 7 8 9 10 'Dimensions des objet "image" Public larg1, haut1 As Integer 'position des angles supérieurs gauche des objets "images" Public anglex1 As Integer Public angley1 As Integer larg1 = 300 'largeur simple haut1 = 200 'hauteur simple anglex1 = 500 angley1 = 40
la partie dimension ok quoi integer avec 300 fait pas bon ménage
mais cette partiel la ne doit pas etre en hat de module
Code:

1 2 3 4 larg1 = 300 'largeur simple haut1 = 200 'hauteur simple anglex1 = 500 angley1 = 40
ou alors se serai comme ca
Code:

1 2 3 4 5 const= larg1 as long = 300 'largeur simple const= haut1 as long = 200 'hauteur simple const= anglex1 as long = 500 const= angley1 as long =40
mais sans les "dim" ou "public"

mais cela implique que tu ne peux plus les changer en cours de route

15/12/2016, 15h22
Aurélien13140

Bonjour et merci à tous,

Grace à vous, et à mes moults essais infructueux, j'ai enfin compris la différence entre les constantes et les variables, l'interet de les mettre sans des procédures, comment elels s'initialisaient, etc, etc...

J'ai donc réussi à avoir le resultat que je souhaitais obtenir.

Un grand merci !!!!