Faire une image interactive

Version imprimable

28/10/2022, 11h22
azerty129

1 pièce(s) jointe(s)

Faire une image interactive

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.
Pièce jointe 627979
02/11/2022, 18h49
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

1 pièce(s) jointe(s)

Bonjour,

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

Code:

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.

07/11/2022, 07h25
jurassic pork

1 pièce(s) jointe(s)

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).
Pièce jointe 628495

Ami calmant, J.P
07/11/2022, 08h44
azerty129

Merci beaucoup pour votre aide. :)