Copy from Excel and paste to Outlook as Picture resize

Question

This is my VBA but the picture is very small, how can I resize? It comes out very blurry and it is very small. Please if someone can help

    Dim MailSelection As