** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Copiar tabla y pegar como imagen en correo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCopiar tabla y pegar como imagen en correo

 Responder Responder
Autor
Mensaje
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 488
Enlace directo a este mensaje 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



Arriba
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 488
Enlace directo a este mensaje 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
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5970
Enlace directo a este mensaje 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.
Arriba
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 488
Enlace directo a este mensaje 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.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5970
Enlace directo a este mensaje 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.
Arriba
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 488
Enlace directo a este mensaje 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!

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable