Microsoft 365 Agrandir une image dans un formulaire

[Electron24]

Bonsoir le Forum,

Je souhaiterais en cliquant sur une image qu'un formulaire s'ouvre avec l'image en question agrandie.
J'ai les images dans un dossier :

C:\Users\GUY\SendTo\Téléchargements\CLUB RAIL\Vapeur\

Merci d'avance pour votre aide.
Cordialement

 

[JM27]

Bonjour
J'ai fais les images 2 et trois ( dans le dossier)
Mettre les images sous le même dossier que le fichier de l'userform
et configurer l'image comme ci dessous

 

[Electron24]

Bonjour le Forum et JM27
Merci pour cet exemple, n'y aurait il pas moyen de mettre l'image dans un cadre image car la qualité de tes images n'est pas très nette.
De plus, j'aurais plus de 300 images et il faudrait simplifier les macros en reprenant par exemple le nom de la loco qui est inscrit à coté.
J'aurai aussi un texte à ajouter dans le formulaire donnant quelques détails sur la loco.
J'ai un dossier avec les images des locos.
Enfin, j'aurai 3 feuilles du même type "Vapeur", "Diesel" et "Electrique"
Cordialement
Bon week end
PS: voici un exemple de formulaire que j'ai réalisé pour les CI

 

[JM27]

Bonjour
les photo Elles sont déjà dans un cadre image(image1) qui à la taille de l'userform ( a adapter)
Pour la définition de l'image : c'est tout a fait normal. il faut mettre dans ton répertoire l'image de ton fichier qui va bien.
Pour la mise au point j'ai fait une capture de l'image , c'est pour cela que la définition n'est pas correcte
et si tu postais ton formulaire avec tes CI , cela serait plus facile

 

[Electron24]

Voici le dossier CI

 

[JM27]

bonjour
merci d'envoyer un dossier avec tes photos ( quelques une suffisent)
dans le cas de ton dernier fichier , tu sélectionnes un CI dans l'userform et tu obtiens la photo.
et non pas en cliquant sur une image.
Je pense que cette solution est la plus facile à mettre en place
il faudrait que tu fasses une feuille avec la définition de la loco , (ce que tu souhaites afficher dans l'userform , et le nom de la photo associée( comme sue le fichier CI)
postes aussi ton fichier avec ce que tu as déja fais ( les 3 feuilles : vapeur , diesel, électrique)

 

[Electron24]

Ok,
Si tu as remarqué, dans le classeur CI tous les ci sont alignés dans la colonne B sans Ligne vierge entre eux.
Dans le classeur des locos, ce n'est pas le cas.
Donc la justification de mon choix de cliquer sur l'image, mais cela est plus compliqué.

 

[JM27]

Dans ce cas il serait plus facile d'inscrire le nom de la photo à coté de la miniature : qu'en penses tu?
et en cliquant sur le nom , on ouvres l'userform
ou est le dossier photos train ( comme demandé)

 

[JM27]

Re
au vu de l'userform CI que tu as crée , tu pourrais aussi créer un semblant d'userform avec ce que tu souhaites

 

[Electron24]

Voici le travail en cours
Dossier photo sur 1er mail envoyé
Bonne soirée

 

[job75]

Bonsoir Electron24, JM27,

Pour agrandir des images on peut simplement affecter à chacune cette macro :

Sub Zoom()
Dim coef
coef = 2 'à adapter
With ActiveSheet.Shapes(Application.Caller)
    .LockAspectRatio = True
    If Right(.Name, 2) = "_Z" Then
        .Width = .Width / coef
        .Name = Left(.Name, Len(.Name) - 2)
    Else
        .Width = .Width * coef
        .Name = .Name & "_Z"
        .ZOrder 0 'place en 1ère position
    End If
End With
End Sub

A+

 

[JM27]

@Electron24
Non ce que je veux c'est les photo dans un dossier ( avec extension .JPG)

 

[Electron24]

Comme ceci
PS bonsoir Job75 pour l'agrandissement j'ai trouvé

 

[job75]

pour l'agrandissement j'ai trouvé

Quelle méthode utilisez-vous ? Dans le fichier joint je reste sur la mienne.

 

[JM27]

bonsoir
A tester