Что значит "реализовать то же самое"?  
Думаете, кому-то тут охота писать сотни строк кода, чтобы потом услышать в ответ: "спасибо, но это не то, мне надо было не с Яндекса, а с Гугла картинки..."  
 
Не экономьте слова - опишите нормально задачу.  
Сначала сделайте макрос, который по тексту ячейки получает ссылку на картинку,  
а потом, для вставки картинок по ссылкам, можете воспользоваться специальной надстройкой вроде этой:  
http://excelvba.ru/code/InsertPicturesEx  
(у меня есть и расширенная версия этой надстройки - для работы со списком ссылок. Я ещё не успел опубликовать её на сайте)