Saludos, Tengo un problema con una actualización que estoy haciendo. Estoy abriendo un libro de excel 2003 en excel 2007. El libro tiene una macro que busca un archivo de excel en la red y copia unas gráficas a el libro actual. Este copia unas gráficas bien, pero se revienta en otras, en teoría las gráficas no son diferentes unas de otras, sin embargo se presenta el error. El mensaje de error es "se ha producido el error 1004 en tiempo de ejecucion error definido por la aplicacion o el objeto excel". A continuación, adjunto el código. Les agradezco si me pueden dar una luz al respecto. Los errores se presentan de la gráfica 5 en adelante en el momento de copiar Set tmp = xlsBook2.Sheets("Consolidado") tmp.Activate tmp.ChartObjects("Chart 2").Copy Windows(CurrentFile).Activate Set tmp = xlsBook1.Sheets("WellStatus Graficos") tmp.Activate tmp.Range("B11").Select newnames = St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados\" & RequestedFile ActiveSheet.Paste ChDir _ St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados" ActiveWorkbook.ChangeLink Name:=newnames, newname:=newnames _ , Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.UpdateLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.BreakLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks With ActiveChart.Parent .Height = 288 .Width = 481 End With Set ChartTmp = ActiveChart 'ChartTmp.SetElement (msoElementChartTitleAboveChart) ChartTmp.ChartTitle.Characters.Text = "Volúmenes de producción" '-- Grafica 4 Set tmp = xlsBook2.Sheets("Consolidado") tmp.Activate tmp.ChartObjects("Chart 4").Copy Windows(CurrentFile).Activate Set tmp = xlsBook1.Sheets("WellStatus Graficos") tmp.Activate tmp.Range("I35").Select newnames = St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados\" & RequestedFile ActiveSheet.Paste ChDir _ St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados" ActiveWorkbook.ChangeLink Name:=newnames, newname:=newnames _ , Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.UpdateLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.BreakLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks With ActiveChart.Parent .Height = 288 .Width = 481 End With Set ChartTmp = ActiveChart 'ChartTmp.SetElement (msoElementChartTitleAboveChart) ChartTmp.ChartTitle.Characters.Text = "Caracterización Gas" '-- Grafica 5 Set tmp = xlsBook2.Sheets("Consolidado") tmp.Activate tmp.ChartObjects("Chart 5").Copy Windows(CurrentFile).Activate Set tmp = xlsBook1.Sheets("WellStatus Graficos") tmp.Activate tmp.Range("B59").Select newnames = St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados\" & RequestedFile ActiveSheet.Paste ChDir _ St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados" ActiveWorkbook.ChangeLink Name:=newnames, newname:=newnames _ , Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.UpdateLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.BreakLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks With ActiveChart.Parent .Height = 288 .Width = 481 End With Set ChartTmp = ActiveChart 'ChartTmp.SetElement (msoElementChartTitleAboveChart) ChartTmp.ChartTitle.Characters.Text = "Caracterización Agua de Producción" '-- Grafica 6 Set tmp = xlsBook2.Sheets("Consolidado") tmp.Activate tmp.ChartObjects("Chart 6").Copy Windows(CurrentFile).Activate Set tmp = xlsBook1.Sheets("WellStatus Graficos") tmp.Activate tmp.Range("I59").Select newnames = St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados\" & RequestedFile ActiveSheet.Paste ChDir _ St_RutaSitioWEB & "\ReportesIntranet\ReporteWellStatus\ReportesGenerados\ReportesPublicados" ActiveWorkbook.ChangeLink Name:=newnames, newname:=newnames _ , Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.UpdateLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks ActiveWorkbook.BreakLink Name:=newnames, Type:=Excel.XlLinkType.xlLinkTypeExcelLinks With ActiveChart.Parent .Height = 288 .Width = 481 End With Set ChartTmp = ActiveChart 'ChartTmp.SetElement (msoElementChartTitleAboveChart) ChartTmp.ChartTitle.Characters.Text = "Producción Arena" Muchas gracias.

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Error al copiar gráfica desde otro libro

Autor del tema Ricxs
Fecha de inicio 15 May 2013

Ricxs

New member

15 May 2013

Saludos,

Tengo un problema con una actualización que estoy haciendo. Estoy abriendo un libro de excel 2003 en excel 2007. El libro tiene una macro que busca un archivo de excel en la red y copia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Error al copiar y pegar datos, de un libro a otro, usando VBA Excel

Respuestas: 6

6 Nov 2023

FGV

Pregunta

ERROR Macro copiar hojas, seleccionándolas en formulario

Respuestas: 4

15 Oct 2022

Abraham.Valencia

Resuelto

error en macro copiar celdas de un documento a otro

Respuestas: 25

12 Jul 2022

Abraham.Valencia

Pregunta

Error al copiar valores

Respuestas: 4

29 Ene 2022

jmgc2020

Resuelto

Error 1004 (pegado especial) Al copiar celdas y pegar en otra hoja

Respuestas: 6

19 Ene 2022

papasioux

Pregunta

Ayuda para copiar hoja activa, procedimiento con error.

Respuestas: 4

9 Nov 2021

Damajaa

Pregunta

Error en alineación al copiar y se desactiva la función rehacer.

Respuestas: 0

5 Sep 2020

JUAN12

Pregunta

Error al copiar datos mediante VBA

Respuestas: 1

10 Abr 2020

servandofernandez

Pregunta

Error en código sencillo copiar pegar

Respuestas: 2

10 Feb 2020

NilFu

Pregunta

Run time error ar copiar datos de otro archivo

Respuestas: 2

4 May 2017

Cacho R

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba