Üdv mindenkinek!

Egyetlen makróra lenne szükségem és mivel csak ez az egy érdekel nem szántam magam rá a Visual Basic mélyebb elsajátítására így külső segítségre van szükségem.
Korábban kb. 10 éve valamelyikőtök már segített ebben és írt egy rövid makrót, ami évekig remekül működött de egy ideje már nem működik.
(a bánat tudja miért pedig nem tudok róla, hogy bármit változtattam volna rajta)

 

- Office 2003-at használok (nem tévedés... 2003)
- a megjegyzésekbe képeket ágyazok a következő módon:

 

01 cella kijelöl
02 egér jobb klikk
03 megjegyzés beszúrása
04 megjelenő ablak keretére dupla klikk
05 színek és vonalak (lenyíló fül)
06 szín
07 kitöltési effektus
08 kép
09 képválasztás
10 beszúrás
11 ok
12 ok
13 ablak keretére dupla klikk
14 méret
15 alaphelyzet
16 ok

 

Innentől ha a cella fölé viszem az egérmutatót a beágyazott kép előugrik.
A gond csak az, hogy időnként valamilyen ok miatt a képek méretének alaphelyzete elállítódik és egyesével visszaállítani óriási és felesleges munka lenne mivel újra el fog állítódni.
Ez nem is lenne baj, mert a makró meg tudja ezt oldani pillanatok alatt(ha van).
A képek mérete eltérő. Nem nagyok de az oldalarányaik eltérőek.

Tehát a feladat röviden az lenne, hogy egy makró az aktív munkafüzetben alaphelyzetbe állítsa a beágyazott képek méreteit.

példának okáért idemásolom azt a makrót a neve "Sub Megjegyzem", ami már nem működik hátha valaki észreveszi mi lehet a hiba és azt átírva megoldódik a probléma de lehet, hogy tudnátok jobb megoldást, nekem mindegy.

 

***********************************************
Sub Megjegyzem()
Dim sh As Shape, cm As Comment, i As Long
For i = 1 To 2
For Each cm In ActiveSheet.Comments
cm.Visible = True
Set sh = cm.Shape
sh.Select
DoEvents
Application.SendKeys "^1"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{TAB}"
Application.SendKeys "{ENTER}"
Application.SendKeys "{TAB}"
Application.SendKeys "{ENTER}"
cm.Visible = False
Next
Next
End Sub

***********************************************

sok sikert!
hajrá :)