Copiar tabla y pegar como imagen en correo

   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:
Nombre de la hoja 
Rango de datos
Nombre que quiero que tenga la imagen que cree.

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

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
ximo200 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 486	Opciones de entrada Responder Cita ximo200 Informar de mensaje Gracias(0) Cita Respuesta Tema: Copiar tabla y pegar como imagen en correo 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: Nombre de la hoja Rango de datos Nombre que quiero que tenga la imagen que cree. 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 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 486	Opciones de entrada Responder Cita ximo200 Informar de mensaje Gracias(0) Cita Respuesta 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

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: 5668	Opciones de entrada Responder Cita AnSanVal Informar de mensaje Gracias(0) Cita Respuesta 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.
	Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas). Mi sitio_web con ejemplos Excel.

ximo200 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Asiduo Unido: 11/Junio/2007 Localización: España Estado: Sin conexión Puntos: 486	Opciones de entrada Responder Cita ximo200 Informar de mensaje Gracias(0) Cita Respuesta 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: 5668	Opciones de entrada Responder Cita AnSanVal Informar de mensaje Gracias(0) Cita Respuesta 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).
	Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas). Mi sitio_web con ejemplos Excel.