Agrandir une image pendant 2 secondes

[Cekankonvaou]

Bonjour à toutes et à tous et bonne année!

J'ai un souci pour lequel je n'ai pas trouvé de solution (ou alors, pas compris celles que je voyais ).

J'ai dans une feuille, une colonne qui contient des images (copier/coller en tant qu'image issus d'autres classeurs).

J'aimerais qu'une image s'agrandisse pendant quelques secondes lorsque je viens faire un clic droit dessus, puis qu'elle reprennent ses dimensions d'origine (le but étant d'avoir un aperçu rapide puis d'ouvrir le document correspondant à l'image via un lien hypertexte).

Je pense qu'il ne me manque pas grand chose dans le code ci dessous pour que cela fonctionne...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)

    If Target.Column = 6 Then
        nomimage = (Cells(Target.Row, 2))
        Start = Timer
        Do While Timer < Start + 2
            ActiveSheet.Shapes.Range(Array(nomimage)).Select
            Selection.ShapeRange.ScaleHeight 10, msoFalse, msoScaleFromTopLeft
        Loop
        MsgBox "fin timer"
        Selection.ShapeRange.ScaleHeight 0.1, msoFalse, msoScaleFromTopLeft
    End If
 End Sub

Désolé, je n'ai pas réussi à joindre un fichier..

Merci d'avance pour le coup de main

Bertrand

 

[chris]

Re : Agrandir une image pendant 2 secondes

Bonjour

A priori le clic droit sur une image n'est pas un évènement. Il faudrait prévoir le clic droit ou double clic sur le nom de l'image...

 

[Si...]

Re : Agrandir une image pendant 2 secondes

salut

avec la macro quelque peu modifiée : click droit mais sur une cellule qui renvoie le nom de l'image

ou, click gauche sur l'image...

Edit : oups, désolé chris , j'ai oublié de préciser que tu m'avais mis sur les pistes

 

[Cekankonvaou]

Re : Agrandir une image pendant 2 secondes

Bonjour Chris et Si...

Effectivement, je m'étais mal exprimé, il s'agissait bien d'un clic dans une cellule (dans mon cas, l'image en question est dans la cellule...).

En tous cas, merci beaucoup, la proposition de Si... répond tout à fait à mon besoin!

Bonne journée.