Excel - Error al copiar rango como imagen

 
Vista:
sin imagen de perfil
Val: 16
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Error al copiar rango como imagen

Publicado por Vanessa Elisa (11 intervenciones) el 17/12/2019 23:04:56
Hola a todos

Necesito ayuda con una macro que lo que hace es copiar un rango de celdas y pegarlas en otra hoja como imagen
el error que me aparece es:

Se ha producido el error 1004 en tiempo de ejecución: Microsoft Excel no puede pegar los datos.

El error me aparece en la linea:

ActiveSheet.Paste

Lo curioso es que al darle depurar y presionar F8 ya no marca error

Les comparto la fracción del código donde me aparece el error

1
2
3
4
Range("a1:i50").CopyPicture Appearance:=xlScreen
Sheets ("Reporte").Select
Range("a1").Select
ActiveSheet.Paste

De antemano agradezco cualquier ayuda que me puedan brindar

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Dirk
Val: 455
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Error al copiar rango como imagen

Publicado por Dirk (166 intervenciones) el 18/12/2019 20:55:43
Hola Vanesa, prueba con esto:

1
2
3
4
5
6
Range("A1:I50").Select
Selection.Copy
Sheets("Reporte").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Pictures.Paste.Select
Application.CutCopyMode = False

Salu2
Dirk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar