[Résolu]Survol image dans userform

[alienox]

Bonjour,

après une recherche avancé ici même, je n'ai pas trouvé grand chose...

Quand je clique sur ma listview après une recherche dans dossier, une image s'affiche dans mon userform (selon l'image que j'ai sélectionnée), j'aimerai qu'en survolant celle-ci, elle s'affiche en plus gros.

Est-ce possible?


voici ce que j'ai trouvé, mais je n'arrive pas à l'adapté à mon userform,

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
    ActiveSheet.Shapes("Image2").Visible = False
  Else
    ActiveSheet.Shapes("Image2").Visible = True
  End If
End Sub

Merci d'avance

 

[Gelinotte]

Re : Survol image dans userform

Bonsoir,

Voici un essai, ce sera sûrement à améliorer ...


Gelinotte

 

[alienox]

Re : Survol image dans userform

Bonjour Gelinotte,

Pour un essai, c'est pas mal, par contre, c'est assez difficile de voir ce qu'il y a d'écrit, car mon dossier qui contient mes images, sont en faite des copies à partie de fiches PDF transformées en JPG (PDFcréator), donc sur celle-ci, se ne sont pas des images mais de l'écriture.

Le zoom n'est pas assez grand, mais vu la taille de Usf il va me falloir un Usf encore plus grand!!!!!

alors soit je peux zoom, en passant dessus dans une loupe, soit il faut prévoir autre chose pour l'affichage des images...

Des idées????

Merci et à bientôt

 

[Staple1600]

Re : Survol image dans userform

Bonjour à tous


alienox
Tu as pensé à jouer avec la propriété PictureSizeMode de ton contrôle Image ?

Testes les trois paramètres sur un userform contenant un contrôle Image
et regardes les différences obtenues.

NB: Je n'ai pas ouvert la PJ de Gelinotte, donc j'ignore si c'est ce qu'il a fait
Si c'est le cas désolé pour le doublon.

 

[Gelinotte]

Re : Survol image dans userform

Bonjour,

La taille des images est-elle toujours la même ?
Si oui, quelle est-elle ?

Si non quelle est la taille de la plus grande image ?


Geli

 

[alienox]

Re : Survol image dans userform

Re,

@Staple : merci, oui j'ai regardé "Picturesizemode", et actuellement je suis en mode stretch.

@Geli: La taille de l'image, est de 1240X1740 (LargeurXHauteur)

A+ seb

 

[Gelinotte]

Re : Survol image dans userform

Bonsoir,

J'ai cherché et testé ... mais mon niveau vba est trop bas pour résoudre ce problème, les images sont énormément trop grande.

Désolé


Geli

 

[alienox]

Re : Survol image dans userform

Bonjour,

C'est pas grave,

Merci, en tout cas, tu m'auras appris quelque chose même avec ton niveau de VBA trop bas.

Bah, tu es certainement meilleur que moi

A+

 

[Staple1600]

Re : Survol image dans userform

Bonjour à tous


alienox

La taille de l'image, est de 1240X1740 (LargeurXHauteur)

Pourquoi des images si grandes?
Tu n'as pas la possibilité de réduire leurs dimensions avant de les charger dans l'userform ?

 

[MJ13]

Re : Survol image dans userform

Bonjour à tous

Si vous utilsez Irfan View, un des meilleurs viewer d'images, vous pouvez utiliser cette ligne de commande pour réduire les images d'un dossier vers un autre .

Sub RedimensionneImages()
Shell ("C:\Program Files\IrfanView\i_view32.exe c:\Temp\JPG\*.jpg /resize=(256,) /aspectratio /resample /convert=c:\Temp\*.jpg")
End Sub

 

[Staple1600]

Re : Survol image dans userform

Bonjour MJ13


Si on tourne sous Excel 2013, on peut aussi simplement utiliser Excel.
Réduire la taille de fichier dans une image - Excel

Sinon concernant IrfanView, voir ses concurrents (et infirmer ou confirmer le classement )

 

[Si...]

Re : Survol image dans userform

Salut

Voir Si… cela peut être envisagé : l’image* est chargée dans un autre UsF, tous 2 de taille variable.

* J'aime bien utiliser PhotoScape pour mes illustrations.

 

[PMO2]

Re : Survol image dans userform

Bonjour,

Peut être une piste en utilisant un second UserForm (voir la pièce jointe).
Cliquez sur l'image pour ouvrir le nouveau USF.

 

[Gelinotte]

Re : Survol image dans userform

Bonjour,

Il y a la possibilité de détecter la hauteur de l'écran et de donner la même hauteur à l'image. Mais si l'image est plus grande, là ...


Geli

 

[MJ13]

Re : Survol image dans userform

Re à tous (de plus en plus de monde ici )

Voici un exemle de ce qu'on peut faire avec Irfan View, ainsi, on ne se prend pas la tête avec la taille des images qui peuvent être très grandes en travaillant sur des originaux.

PS: je viens de créer le fichier grâce à l'auto-complétion et la copie de mon code en #10 .