Discussion :

[azerty129]

Bonjour, je voulais savoir s'il était possible d'interagir avec une image. Dans mon exemple, j'aimerais :
Dans un Userform que l'image s'affiche quand je sélectionne "Chat" et que quand je clique sur une partie de l'image (en rouge sur l'image) il m'affiche Œil gauche du Chat ou B-3.
Merci par avance de votre aide
Cordialement.

[eric4577]

Bonjour à tous
Bonjour azerty129

Oui c'est possible. Pas difficile s'il n'y a qu'une image appelée, mais s'il y en a plusieurs : un chat,un chien, ... cela risque de devenir très compliqué.

Le système : mettre une image sur l'image de fond en mettant "BackStyle" à "transparent" pour chaque nouvelle image créée.

Bon courage
Eric

[EricDgn]

Bonjour,

Un petit exemple où l'on suppose que toutes les images sont dans le même dossier que le fichier Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
 
Private Sub UserForm_Initialize()
    Me.ListBox1.List = Range("Tableau1").Value
End Sub
 
Private Sub ListBox1_Click()
    Dim sFileName As String
    sFileName = ThisWorkbook.Path & "\" & Me.ListBox1 & ".jpg"
    If Dir(sFileName) = "" Then
        MsgBox "Pas d'image ayant ce nom: " & Me.ListBox1
    Else
        '--- attention: la propriété Image.Autosize = True obligatoire, sinon ne fonctionne pas correctement
        Me.Image1.Picture = LoadPicture(sFileName)
    End If
    Me.TextBox2.Text = "Taille image   L:" & Me.Image1.Width & " - H:" & Me.Image1.Height
End Sub
 
Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.TextBox1.Text = "Image1_MouseDown   X:" & X & " - Y:" & Y
End Sub
 
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.TextBox1.Text = "UserForm_MouseDown   X:" & X & " - Y:" & Y
End Sub

Bonne continuation.

[jurassic pork]

Hello,
si il faut que les événements soient dans une grille et récupérer les coordonnées de la grille, on peut passer par des labels transparents créés dynamiquement qui forment la grille et d'avoir recours à un module de classe pour avoir une gestion de click commune à tous les labels qui affiche le label clické. Le souci c'est que si les images n'ont pas les mêmes dimensions, les mêmes grilles aux mêmes endroits cela devient ingérable.
Voici ce que cela pourrait donner (en reprenant une partie du code de EricDgn).


Ami calmant, J.P

[azerty129]

Merci beaucoup pour votre aide.