How to convert linked image to embedded one?

Question

I used vba to replace text with corresponding pictures. I have slightly modified the code(from https://www.extendoffice.com/documents/excel/2750-excel-replace-text-with-imag