Размер картинки в экселе

[Dimaka]

Добрый день.
Пособите плис.
Есть таблица, в ней вставлены картинки. (не формами. без image) Надо, чтоб при кликанье на картинку она увеличивалась а при повторном клике меняла размеры на обратно.
Каждой картинке прописан макрос типа:
Sub pic_sw()

k = Selection.Width

If k < 100 Then

Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 708.75
Else
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 48

End If
End Sub
Но это не работает.
Можно обойтись гиперссылками, но я не знаю, как выявить картинку которая вставлена в книгу.
Спасибо.