Discussion :

[Oh!Tofocus]

Bonjour à tous
J'ai un Controle image sur un userform,
et je voudrais y associer une grande image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Image1.Picture = (chemin_du_fichier)

est-t-il possible d'avoir des ascenseurs sur les cotes du controle pour pouvoir visualiser toute l'image en se déplaçant dessus ?

[Didier Gonard]

Bonjour,

une petite recherche sur le forum ne prend pas longtemps...

Utiliser des Scrollbars pour se déplacer dans une image dont la taille est supérieure à celle du contrôle:
Lorsque vous utilisez l'objet Image, vous pouvez uniquement visualiser le résultat en mode Stretch, Zoom ou Clip. Pour visualiser un fichier à sa taille réelle et avoir la possibilité de s'y déplacer même si sa dimension est superieure à celle de l'objet, insérez le contrôle Image dans un Frame puis utilisez la macro ci dessous.

http://silkyroad.developpez.com/VBA/...serForm/#LII-K

il y a surement d'autres choses à trouver..

cordialement,

Didier

[Oh!Tofocus]

Merci beaucoup pour cette réponse très rapide.
C'est exactement ça que je cherchais

Pour la recherche dans le forum il est vrai que les mots techniques adéquats sont plus efficaces que les miens
entre ascenseurs et Scrollbars il n'y a pas photo

[Antoniom]

Hello,

Peut-être utiliser un WebBrowser...

Pas facile à gérer avec le Frame.

Voici en fichier joint les deux méthodes.

Si vous ne voulez pas télécharger le fichier, procédez comme suit :

Dans l'UserForm mettez 1 WebBrowser, et plus bas 1 Frame avec dedans 1 Image, puis mettez ce code

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
Private Sub UserForm_Initialize()
 
    Image1.AutoSize = True
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Cameroun.jpg")
 
    With Me.Frame1
        .ScrollBars = fmScrollBarsBoth
        .ScrollHeight = Image1.Height
        .ScrollWidth = Image1.Width
    End With
 
 
 
 
'*************************************************************
    'pour le WebBrowser
    WebBrowser1.Navigate ThisWorkbook.Path & "\Cameroun.jpg"
'*************************************************************
 
End Sub

Bien entendu, l'image doit être plus grande que les contrôles.

Dans cette macro, l'image "Cameroun" est censée se trouver dans le même répertoire que le fichier. (à modifier si vous voulez)

Bonne journée, Antoniom.

[Oh!Tofocus]

Merci Antoniom pour cette seconde solution
Le code est encore plus simple qu'avec les frames.

de plus sur l'image affichée, le click droit marche et quelques options sont disponibles: propriétés , enregistrer la photo ....

petits plus qui me font pencher vers cette solution.


A+