Copy range to email body as a picture

Is there anyway to copy a range to email body as a picture when sthe workbook is shared? I can mange to get the VBA to work when the workbook is not share but it fails when shared.