Paste Picture by Cell data

Hi, All,

I have a program to make a function to paste picture, the is work but the problem that I need embed all the picture into excel independently.
can anyone can help to make some correction for me?

my Macro program here:

Please Login or Register  to view this content.