Чтобы рисовалась схема расположения секций. Я не знаю, как сделать так, чтобы Excel сам рисовал, и не знаю, возможно ли это вообще! Поэтому и заготовил картинок заранее. Всего 20 штук. Как заложить на программном коде такой смысл

If "условие" Then "вставить картинку (путь такой-то)"
ElseIf "вставить другую картинку (путь такой-то)"

пробовал - не работает
я тут нашел в справочнике такую команду
ActiveSheet.Pictures.Insert ("D:\plan\10.PNG")
нелает как раз то, что нужно, но как сделать так, чтобы картинка вставлялась в определенную ячейку, а то она просто в активную вставляется

просто код пустой - нет ничего. Может глюк какой...

А все, разобрался, спасибо! Я стоп не нажимал просто...

Можно еще такой вопрос: как сделать так, чтобы при поиске оград по алгоритму:

Код
With Sheets(2)
iRow = .Range("A:A" ;) .Find(tip, LookIn:=xlValues).Row
st = .Cells(iRow, 2)
poyas = .Cells(iRow, 3)
tr = .Cells(iRow, 4)
End With


при отсутствии совпадений программа выдавала месседж-бокс, мол, ограды с таким наименование не найдено?
Проще говоря, если программа не нашла введенную ограду, она бы вывела сообщение об этом и остановилась.

не работает(((
Дописываю MSGbox = "такой ограды нет"
выдает ошибку.
И как обозначить переменную result?
Я написал ее как recordset, правильно?