zoom image au passage de la souris excel

Question

Bonjour, J'aimerai sur excel, qu'au passage de la souris sur une image , il y est un zoom de l'image? j'ai fait des recherches mais j'ai pas compris :-(. merci Windows Vista Firefox 10.0.2

seb · Answer

j'ai trouvé un début de macro mais le zoom rétrécie au lieu d'agrandir et cela ce fait avec un clic au lieu du passage de la souris 

Sub rg_hi_Clic() 
 With ActiveSheet.Shapes(Application.Caller) 
  If .AlternativeText = "" Then 
    .ScaleWidth 2, msoFalse, msoScaleFromTopLeft 
    .ScaleHeight 2, msoFalse, msoScaleFromTopLeft 
    .AlternativeText = "zoom" 
  Else 
    .ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft 
    .ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft 
    .AlternativeText = "" 
  End If 
 End With 
End Sub 


si quelqu'un peut m'aider a la modifier merci




en faite j'ai trouvé pour agrandir mais il me reste au passage de la souris


Sub rg_hi_Clic()
 With ActiveSheet.Shapes(Application.Caller)
  If .AlternativeText = "" Then
    .ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
    .AlternativeText = "zoom"
  Else
    .ScaleWidth 2, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 2, msoFalse, msoScaleFromTopLeft
    .AlternativeText = ""
  End If
 End With
End Sub

seb · Answer

up

Zoom image au passage de la souris excel

2 réponses

Votre réponse

Discussions similaires

Newsletters