Image dans USF

[cpeens]

Bonjour je souhaite en cliquant dans mon usf sur Image dans l'onglet diplome attestation qu'il s'affiche soit en plein ecran soit dans l'emplacement image1 dans l'onglet 4 de mon USF



question 2 comment faire pour que la taille de mon image dans USF s'adapte automatiquement au cadre image que j'ai fais;

merci pour votre aide

 

[Staple1600]

Re : Image dans USF

Bonjour à tous

Je te conseille de décortiquer le code de ce fichier de kjin Lien supprimé pour avancer dans ton projet.


Pour tester, il faut décompresser le fichier xls et les images dans le même dossier.

edition: houps je n'avais pas un ton fichier joint (désolé)

 

[Staple1600]

Re : Image dans USF

Re

Essayes les différents choix de PictureSizeMode

• fmPictureSizeModeClip
• fmPictureSizeModeStretch
• fmPictureSizeModeZoom

Private Sub ComboA_Change()
nom = Me.ComboA.Value
On Error Resume Next
Fichier = ActiveWorkbook.Path & "\" & nom & ".jpg"
Me.DIPLOME1.Picture = LoadPicture(Fichier)
Me.DIPLOME1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

 

[Hulk]

Re : Image dans USF

Bonjour Forum, Cpeens, Staple

J'ai cru comprendre que tu voulais aussi en cliquant sur le cadre "DIPLOME1" que l'image se colle aussi dans le cadre "Image1" de l'onglet 4 ?

Si oui, tu rajoutes ceci

Private Sub DIPLOME1_Click()
nom = Me.ComboA.Value
On Error Resume Next
Fichier = ActiveWorkbook.Path & "\" & nom & ".jpg"
Me.Image1.Picture = LoadPicture(Fichier)
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

Bonne journée !

EDIT : Adaptes tes cadres au format de tes images.

 

[cpeens]

Re : Image dans USF

merci pour ta reponse sa ma repondu a la seconde question

mais ma premiere reste toujour sans reponse celle qui conciste a cliquez sur l'image pour soit l'afficher dans l'onglet 4 de mon USF soit une fenetre en plein ecran je pense une sorte egalité entre les deux emplacement pourais regler en partis mon probleme mais je sais pas comment faire merci pour votre aide

un fichier join est present dans mon premier post

 

[cpeens]

Re : Image dans USF

Merci hulk sa semble regler mon probleme en tous cas sa fonctionne je vais l'adapter et je vous tien au courant en tout cas merci pour la piste

 

[Staple1600]

Re : Image dans USF

Re


Je dois être invisible aujourd'hui

C'est sur qu'un Hulk ca se remarque plus qu'une agrafeuse !

 

[Hulk]

Re : Image dans USF

Re,

hep hep... Merci Hulk et Staple !

 

[cpeens]

Re : Image dans USF

desoler stable merci a toi aussi mais tu sais le premier remerciment c'etait pour toi mais hulk a repondu avant je poste mon remerciment donc sa ete a la suite de sa reponse mais je te remercie infiniment lol

 

[cpeens]

Re : Image dans USF

re bonjour voulant donner une adresse ou se trouverais mes diplomes

j'ai un peut modifier la macro en

Private Sub ComboA_Change()
nom = Me.ComboA.Value
RepImages = "G:\Project Formation CciV\Gestion Formation\DOCUMENT\DIPLOME1\" 'c'est un exemple à adapter !!
Fichier = RepImages & nom & ".jpg"
Me.DIPLOME1.Picture = LoadPicture(Fichier)
Me.DIPLOME2.PictureSizeMode = fmPictureSizeModeZoom
end sub

jusque la pas de soucis sauf quand j'ai voulu refaire la methode de hulk

en la modifiant egalement sa fonctionnais plus

Private Sub DIPLOME1_Click()
nom = Me.ComboA.Value
RepImages = "G:\Project Formation CciV\Gestion Formation\DOCUMENT\DIPLOME1\" 'c'est un exemple à adapter !!
Fichier = ActiveWorkbook.Path & "\" & nom & ".jpg"
Me.Image1.Picture = LoadPicture(Fichier)
Me.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

pouvez vous m'eclairé un peu merci

 

[cpeens]

Re : Image dans USF

probleme regler j'avais oublier une ligne

nom = Me.ComboA.Value
RepImages = "G:\Project Formation CciV\Gestion Formation\DOCUMENT\DIPLOME1\" 'c'est un exemple à adapter !!
Fichier = RepImages & nom & ".jpg"
Me.DIPLOME1.Picture = LoadPicture(Fichier)
Me.DIPLOME2.PictureSizeMode = fmPictureSizeModeZoom

merci en tous cas de votre aide a tous