** 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

Copiar tabla y pegar como imagen en correo

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5668
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita AnSanVal Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Copiar tabla y pegar como imagen en correo
    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, también será tu beneficio).

Mi sitio_web con ejemplos Excel.
Arriba
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 486
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita ximo200 Cita  ResponderRespuesta 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: 5668
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita AnSanVal Cita  ResponderRespuesta 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.


Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas, también será tu beneficio).

Mi sitio_web con ejemplos Excel.
Arriba
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 486
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita ximo200 Cita  ResponderRespuesta 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
ximo200 Ver desplegable
Asiduo
Asiduo


Unido: 11/Junio/2007
Localización: España
Estado: Sin conexión
Puntos: 486
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita ximo200 Cita  ResponderRespuesta Enlace directo a este mensaje 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
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable