Ayuda con el siguiente código

Señores expertos favor vuestra ayuda, estoy tratando de pegar un rango de una planilla a un correo logre hacerlo con uma macro pero quisiera que la imagen no la pudieran modificar

si esto es posible se los agradeceré mucho aquí les dejo el código.

Sub correo()
Range("b3:d32").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "correo"
parte2.Subject = "asunto de mensaje"
parte2.display
Application.SendKeys "^v"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub

Añade tu respuesta

Haz clic para o