Povećanje i smanjenje slike u ćeliji

Molim za malu pomoć.
Evo o čemu se radi:
Kada u ćeliji A2 uvezem sliku, pa je smanjim do širine kolone i postavim comand buton iz activeX control kome dodelim macro za POVEĆAJ tj. SMANJI uvezenu sliku to radi kako treba ali kada zatvorim excel fajl i ponovo ga otvorim slika mi je mutna a ne znam zašto.
Kontrolu POVEĆAJ-SMANJI sam pronašao na ovom forumu pa sam pokušao da prilagodim makro za povećanje ili smanjenje slike.
Ako ima neko drugo rešenje bio bih Vam zahvalan.
Unapred hvala za pomoć.

Nakon što si umanjio sliku, prilikom čuvanja dolazi do kompresije i zato slika izgubi svoju originalnu rezoluciju. Ako imaš Office 2007 pogledaj ovde
http://support.microsoft.com/kb/2002066

Meni na Office 2013 ne postoji ta opcija u Save As.../Tools, jedino bih mogao da pokušam sa izmenom registry

Alternativa je da u događaj Save radne sveske vratiš sve slike na originalnu veličinu (100%)
ActiveSheet.Shapes("DIN 1")..ScaleWidth 1, msoTrue

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?