Zoom in-out la o imagine in Excel

Am o poza inserata in Excel (screenshot). O micsorez cat am nevoie (pentru a incapea intr-o celula anume).
Doresc ca atunci cand sunt cu mouse-ul pe poza (la hover), ea sa se mareasca suficient de mult incat sa poata fi citita. Si cand ies cu mouse-ul de pe ea, sa revina la dimensiunea micsoara (nu dimensiunea ei initiala la inserare).

Nu ma pricep la VBA, si de aceea am cautat pe net, insa vad ca nu ar exista, explicit, evenimente precum onmouseover, onmouseout etc (ci doar Shapes.Select); nici macar un deselect...

Am gasit urmatorul macro, care, la click imi mareste poza (cu cat se se mareasca, e clar: se schimba valoarea cifrei care multiplica .Height si s.Width). Merge si cu micsorare (se pune / in loc de *):

Sub Picture_Click()
   Dim S As Shape
   Dim SaveHeight As Single, SaveWidth As Single
   With ActiveSheet.Shapes(Application.Caller)
	 'Save width and height
	 SaveHeight = .Height
	 SaveWidth = .Width
	 'Enlarge it
	 .Height = .Height / 2
	 If Not .LockAspectRatio Then _
	   .Width = .Width / 2
	'DoEvents
	 'wait 4 seconds
	 'Application.Wait (Now + TimeValue("00:00:02"))
	 'Restore the picture
	 '.Height = SaveHeight
	 '.Width = SaveWidth
   End With
End Sub

Imi trebuie asadar o functie care cumva sa le faca pe amandoua (si zoom in si zoom out), dar nu stiu cum sa fac (si cum sa pun conditia de switch/actionrae intre ele; ma gadeam sa pun un if pentru mouseout sau un if pentru deselect, dar cum astea nu exista...).

Exista sau se poate asa ceva?Ma puteti ajuta va rog?
Multumiri.


PS. O solutie ar fi sa pun casutei in care as pune poza inserata micsorata un comment, iar commnetului sa ii pun fill color cu image. Asa merge. Solutia asta e buna, insa doar pentru o poza. Se poate intampla sa am nevoie ca intr-o casuta sa pun, in minutura, mai multe imagini. Si cand sunt cu mouse-ul pe una, sa se faca mare; ies de pe ea, sa se faca mica, si sa pot sa ma duc pe cealalta sa o fac mare si tot asa.

Ar mai fi o varianta, sa se detecteze cand apas tasta "Esc" si atunci, la acest eveniment (apasarea tastei) sa poza sa revina la dimensiunea micsorata (nu cea initiala).
Dar nici cod petru tasta "Esc" nu am gasit si nu stiu cum sa fac.

Singura referinta (care nu a mers nici asa), a fost ceva de genul SendKey (" {ESC"} )

daca vrei sa faci asta de ce nu bagi un comentariu la celula cu poza si in comentariu schimbi fundalul si apoi il maresti cat vrei tu. in acest fel cand treci cu mousele peste poza se va fisa comentariul (implicit poza marita), cand iei mousele comentariul va fi ascuns si vei vedea poza in celula.

Am si spus de altfel (in PS) ca da, asta este o solutie (viabila), dar ce faci daca ai mai multe poze pe care vrei sa le treci pe linia respectiva? Ar trebuie cate o celula cu comment pentru fiecare (iar pentru urmatorul rand, celulele sa ramane goale (bine, oricum ramane goala, dar una este sa am doar o celula ramasa necompletata si alta sa am cateva celule)).

De aceea intrebam de aceasta posibilitate cu zoom in si out, cu cod in vba.

Eu inca nu am abandonat ideea, si tot mai incerc, mai caut, mai sap. Dar, orice idee/solutie e binevenita.

poti pune coment chiar in celula cu poza ca in ex de mai jos:

 Untitled.jpg   153.51K   14 downloads

dupa cum vezi nu este niciun spatiu intre poze si nici intre celule pentru coment.

Nu am disponibila decat o celula, pentru eventuale atasamente. Pentru o singura imagine, da, stiu, merge si comment, insa pentru mai multe nu.
De aceea ma gandeam sa fac pozele mici, ca niste iconuri, pe care sa le inghesui in acea celula, si, la nevoie, sa pot mari, in parte, cate una.

Idei?

Cat timp dai click si tii mouse-u pe imagine, e mare, cand dai drumu, revine la dimensiunea mica.

Wow!  Multumesc!

Dar nu reusesc sa selectez poza, pentru a o miscora ca dimensiune sau muta pe ecran.
Nu reusesc nici inserand alta poza, sa ii asignez codul.

TeamViewer si-ti arat.

Multumesc mult dani.user.



PS. Rezolvat, se poate inchide!