Pictures

Inserting from Online Picture - Bing Image Search

SS - Copying Picture dialog box
As Shown on Screen -
As Shown when printed -

If Wbk_NamedRangeExists(sNamedRange) = True Then 
   Range(sNamedRange).Copy Picture Appearance:=xlPictureAppearance.xlScreen Format:=xlCopyPictureFormat.xlPicture 
End If