Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Agrandir une image pendant 2 secondes

Cekankonvaou

XLDnaute Junior
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...

Code:
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

XLDnaute Barbatruc
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...

XLDnaute Barbatruc
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
 

Pièces jointes

  • Zoom Image quelques secondes.xlsm
    37.4 KB · Affichages: 54
Dernière édition:

Cekankonvaou

XLDnaute Junior
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…