Zoom image au passage de la souris excel
seb
-
seb -
seb -
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
<config>Windows Vista Firefox 10.0.2</config>
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
<config>Windows Vista Firefox 10.0.2</config>
2 réponses
-
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 -
