Agrandissement image au survol

Bonjour le forum,

J'ai un tableau ou j'insere des images stockées sur mon pc a l'aide de la commande

Set Image = ActiveSheet.Pictures.Insert(cel.Value)
'Cel.value defini par une boucle For Each
                With Image
                    .ShapeRange.LockAspectRatio = msoTrue
                    .Width = cel.Offset(0, -10).Width - 5
                    .Height = cel.Offset(0, -10).Height - 5
                    .Left = cel.Offset(0, -10).Left
                    .Top = cel.Offset(0, -10).Top + 3
                    .Left = ActiveCell.Left + (ActiveCell.Width / 2) - (Image.Width / 2)
                    .Top = ActiveCell.Top + (ActiveCell.Height / 2) - (Image.Height / 2)
                        With Image.ShapeRange.Line
                            .Visible = msoTrue
                            .ForeColor.ObjectThemeColor = msoThemeColorText1
                            .ForeColor.TintAndShade = 0
                            .ForeColor.Brightness = 0
                            .Transparency = 0

                        End With
                End With

J'aimerais faire en sorte que lorsque je survol l'image avec ma souris, elle s'agrandisse.

Est ce possible?

Merci d'avance

Bonjour,

si on passe par des contrôles ActiveX pour stocker les images c'est possible d'intercepter le survol de la souris, mais sans ça je ne vois pas, je transmets quand même un exemple avec ce fameux contrôle et une macro toute simple qui indique la position x et y de la souris dans 2 cellules de la feuille.

Merci Ausecour

Sait on alors ajouter une image Activex via une macro?

De rien,

j'ai trouvé une solution mais qui n'accepte que des formats d'images spécifiques:

Sub Macro1()
Dim obj As MSForms.Image
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
        DisplayAsIcon:=False, Left:=129, Top:=66, Width:=72, Height:=72).Object
obj.Picture = LoadPicture("C:\Users\nicol\Pictures\feu.bmp")
End Sub

ce code permet de charger l'image qui s'appelle feu.bmp en suivant le chemin donné par LoadPicture, la documentation de LoadPicture se trouve ici: https://docs.microsoft.com/fr-fr/office/vba/api/access.application.loadpicture

Il semble exister des solutions pour charger des PNG mais c'est au delà de mes compétences j'en ai bien peur... Oh et ajouter une image au contrôle via VBA ne génère aucun code, il manque malheureusement pas mal de choses pour gérer facilement des images par VBA.