Imprimir página | Cerrar ventana

Copiar tabla y pegar como imagen en correo

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85540
Fecha de impresión: 28/Marzo/2024 a las 10:23


Tema: Copiar tabla y pegar como imagen en correo
Publicado por: ximo200
Asunto: Copiar tabla y pegar como imagen en correo
Fecha de publicación: 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






Respuestas:
Publicado por: ximo200
Fecha de publicación: 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


Publicado por: AnSanVal
Fecha de publicación: 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.


Publicado por: ximo200
Fecha de publicación: 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.


Publicado por: AnSanVal
Fecha de publicación: 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.


Publicado por: ximo200
Fecha de publicación: 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!




Imprimir página | Cerrar ventana