如何将多个png文件转换为jpeg

i've been trying to convert some files i have in a folder in .png to .jpg using vba, but i can't end up with a code to do that, i've been trying to paste the images in Excel and export them as jpg, but it doesn't seem to work, can anybody help me out with this? I have the code where i tried to do so I get an error on this line i've been trying to convert some files i have i