Agrandir image dans une userform

bonjour a tous :ccool:
j'ai une aplication sur excel qui gére le maintenance des machine industriel,
pour chaque intervention d'une machine je collecte les images des pièces de rechange changés dans une userform qui comporte la référence de la pièce date d'auisition etc... et une image que je l'insère manuellement avec un bouton de commande, je veut maintenant quand je clique deux fois sur l'image sera agrandi vers sa taille réelle dans une autre fenêtre au bien ouvrir l'aperçu des images de windows
merci pour vos réponse d'avant.

bonjour,

Peut être en déclenchant une macro lorsque l'on clique sur l'image, puis avec une commande shell pour l'ouvrir :

Code:

---

ActiveSheet.Shapes("Picture 8").OnAction = "essai"

---

Un exemple pour la macro essai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub essai() quot = """" Chemin = ThisWorkbook.Path & Application.PathSeparator & "icones" & Application.PathSeparator Chemin = Chemin & "xxx.jpg"   Monshell = Environ("windir") & Application.PathSeparator & "system32" & Application.PathSeparator & "mspaint.exe" Chemin = " " & quot & Chemin & quot Monshell = Monshell & Chemin   RetVal = Shell(Monshell, 1)     End Sub

---

Il doit y avoir plus simple, si c'est la cas, je suis preneur.

Bonsoir, aalex_38,

regarde ce qu'afficherait ceci :

Code:

---

MsgBox Left(Environ("Path"), InStr(Environ("Path"), ";") - 1)

---

ceci étant vu : il est totalement inutile de préciser le chemin de MsPaint.Exe dans le Shell (MsPaint.exe étant un exécutable de Windows). On pourrait même se passer de préciser l'extension (exe)...

EDIT :
Et je ne comprends pas la nécessité d'utiliser MsPaint. Puisqu'on est sur un UserForm, un contrôle image devrait recevoir l'image dont on précise le chemin ...

Citation:

---

ceci étant vu : il est totalement inutile de préciser le chemin de MsPaint.Exe dans le Shell (MsPaint.exe étant un exécutable de Windows). On pourrait même se passer de préciser l'extension (exe)...

---

Effectivement

Code:

---

Shell "mspaint"

---

fonctionne parfaitement :oops:

Citation:

---

Et je ne comprends pas la nécessité d'utiliser MsPaint.

---

On peut vouloir ouvrir une image dans un logiciel choisi :

Citation:

---

je veut maintenant quand je clique deux fois sur l'image sera agrandi vers sa taille réelle dans une autre fenêtre au bien ouvrir l'aperçu des images de windows
merci pour vos réponse d'avant.

---

Code:

---

MsgBox Left(Environ("Path"), InStr(Environ("Path"), ";") - 1)

---

Chez moi ça donne :

Citation:

---

C:\Program Files\Microsoft Office\OFFICE11\

---