Estimados favor su ayuda con la siguiente macro pero si fuera en 2003 que cambiaría
Estimados la siguiente macro copia y pega un rango de una planilla, pero quisiera que la pegara como imagen para que no puedan modificar los datos, si esto fuese posible se los agradeceré enormemente.
Sub correo()
Range("b3:d32").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olmailitem)
parte2.To = Sheets("hoja1").Range("d1").Value
parte2.Subject = Sheets("hoja1").Range("e1").Value
parte2.Display
Application.SendKeys "^v"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
1 Respuesta
No tengo versión 2003, pero si me dices una secuencia de teclas, tal vez pueda hacer el cambio.
1. Copia tu rango de excel
2. Abre tu mail
3. Crea un nuevo mail
4. Pon el cursor en el cuerpo del mensaje
5. Presiona una sola vez la tecla Alt, ahora busca en el menú la opción de pegado especial, presiona la tecla o la letra que te lleva a pegado especial. (Apunta la letra, puede ser una o varias, en versión 2007 son estas letras NVO).
6. Te aparece una ventana, presiona la letra i, presiona aceptar (te debe pegar el rango como imagen)
Envíame las letras
Saludos. DAM
