Задача:

в ячейку вводится цифра от 1 до 100 (эта цифра соответствует имени файла картинки)

После нажатия кнопри на экране с заданными координатами появляется картинка (т.е. если ввели 95 то после нажатия на кнопку на экран выводится картинка \95.jpg)

Заранее, спасибо.

Private Sub CommandButton1_Click()

ActiveSheet.Shapes(1).Delete

Range("D20").Select'положение левого верхнего угла картинки

ActiveSheet.Pictures.Insert("C:\temp\" & cells(1,1).value & ".jpg").Select

End Sub