Microsoft 365 Agrandir une image dans un formulaire

Electron24 · 10 Décembre 2021

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 · 10 Décembre 2021

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 · 11 Décembre 2021

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 · 11 Décembre 2021

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 · 11 Décembre 2021

Voici le dossier CI

JM27 · 11 Décembre 2021

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 · 11 Décembre 2021

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 · 11 Décembre 2021

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 · 11 Décembre 2021

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 · 11 Décembre 2021

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

job75 · 11 Décembre 2021

Bonsoir Electron24, JM27,

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

VB:

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 · 11 Décembre 2021

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

Electron24 · 11 Décembre 2021

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

job75 · 11 Décembre 2021

Electron24 à dit:
pour l'agrandissement j'ai trouvé

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

JM27 · 11 Décembre 2021

bonsoir
A tester

Microsoft 365 Agrandir une image dans un formulaire

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires