|
Responder ![]() |
Autor | |
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 |
|
![]() |
|
ximo200 ![]() Asiduo ![]() Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
![]() |
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
|
|
![]() |
|
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: 5735 |
![]() |
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. |
|
![]() |
|
ximo200 ![]() Asiduo ![]() Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
![]() |
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: 5735 |
![]() |
¡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).
|
|
![]() |
|
ximo200 ![]() Asiduo ![]() Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 488 |
![]() |
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! |
|
![]() |
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 |