Envío mail con rango de celdas como imagen

Tengo el siguiente código para enviar, pero no me envía la imagen, sino la hoja "MODELO"

¿Me podríais ayudar?

Muchas gracias

Sub Enviomail()
'
   ' Select the range of cells on the active worksheet.
   Sheets("MODELO").Select
   Range("A1:R129").Select
   Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   ' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "xxx."
      .Item.To = "[email protected]"
      .Item.Subject = "Estatus operativa - " & (Format(Date, "DD/MM/YY")) & " - " & (Format(Now(), "HH:MM"))
      .Item.Send
   End With
'
End Sub