Copiar tabla y pegar como imagen en correo |
Responder |
Autor | |
ximo200
Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
Tema: Copiar tabla y pegar como imagen en correo Enviado: 10/Noviembre/2020 a las 19:55 |
Gracias Antonio! El problema es que necesito automatizarlo por que va a ser un envio bastante continuo de correos
Debía ser algo del office, por que desinstale e instale y ya vuelve a funcionar. No entiendo que puede ser, pero ya esta solucionado. Por mi parte, si os parece, se puede cerrar el hilo. Un saludo y mucho animo a todos! |
|
AnSanVal
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5974 |
Enviado: 22/Octubre/2020 a las 19:09 |
¡Suerte!. Yo estos temas procuro no automatizarlos, guardo la imagen y la inserto manualmente en el mail (también es verdad que mis MAIL son muuuyy pocos).
|
|
Saludos desde Tenerife.
|
|
ximo200
Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
Enviado: 22/Octubre/2020 a las 08:49 |
Gracias por responder Antonio.
Yo tambien pienso que debe ser eso. Voy a tratar de desinstalar y volver a instalar a office.
|
|
AnSanVal
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 16/Marzo/2005 Localización: España Estado: Sin conexión Puntos: 5974 |
Enviado: 20/Octubre/2020 a las 21:18 |
El problema debe estar en tu equipo.
A mi me funciona, aunque no lo guarda en el cuerpo de un correo sino en el disco duro. |
|
Saludos desde Tenerife.
|
|
ximo200
Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
Enviado: 17/Octubre/2020 a las 20:56 |
Buenas tardes
Por concretar mas, el error lo marca en la linea: With ThisWorkbook.Worksheets(SheetName).ChartObjects.Add(xRgPic.Left, xRgPic.Top, xRgPic.Width, xRgPic.Height) y probado en otro ordenador funciona bien Un saludo a todos
|
|
ximo200
Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
Enviado: 16/Octubre/2020 a las 12:16 |
Buenos dias a todos,
Estoy realizando una macro que copia una tabla de excel y la pega como imagen en el cuerpo de un correo. El codigo funcionaba sin problemas, pero me han cambiado el PC recientemente y ahora me salta un error. El codigo es: Sub createJpg(SheetName As String, xRgAddrss As String, nameFile As String) Dim xRgPic As Range Dim xShape As Shape ThisWorkbook.Activate Worksheets(SheetName).Activate Set xRgPic = ThisWorkbook.Worksheets(SheetName).Range(xRgAddrss) xRgPic.CopyPicture With ThisWorkbook.Worksheets(SheetName).ChartObjects.Add(xRgPic.Left, xRgPic.Top, xRgPic.Width, xRgPic.Height) .Activate For Each xShape In ActiveSheet.Shapes xShape.Line.Visible = msoFalse Next .Chart.Paste .Chart.Export Environ$("temp") & "\" & nameFile & ".jpg", "JPG" End With Worksheets(SheetName).ChartObjects(Worksheets(SheetName).ChartObjects.Count).Delete Set xRgPic = Nothing End Sub como veis, llamo al codigo y le paso:
Como os digo, funcionaba y ahora sale un error: "La dimension especificada no es valida para el tipo de grafico actual". ¿Sabeis que puede ser? Gracias Un saludo |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |