Estimados foreros,

Adjunto un archivo de ejemplo que me genera error con Excel 2010 en Windows 7.

Para reproducir el error:

1. Abrir el libro adjunto en Excel 2010 con Windows 7.
   
2. Hacer click en la imagen
   
3. Aceptar el mensaje informativo.
   
4. Cerrar el libro sin guardarlo. ATENCIÓN: No cerrar Excel.
   
5. Repetir los pasos 1 y 2
   

Se produce el error la segunda vez que se llama al procedimiento:

            Set objChart = .ChartObjects.Add( _

                Izq, Arr, Ancho, Alto)                      'Add ChartObject

[/CODE]

[ATTACH]41432.vB[/ATTACH]

No encuentra el ChartObject en el diccionario según se explica en:

[DBOX]BUG: Run-Time Error Message -2147417848 (80010108) When Passing Array of Dictionary Objects

INFO: Error or Unexpected Behavior with Office Automation When You Use Early Binding in Visual Basic[/DBOX]

He incluido el código para que, si ya se ha creado el gráfico la primera vez, no lo cree de nuevo, por lo que, si se cierra Excel y se vuelve a abrir el archivo, sirve como workaround.

¿Te ha pasado algo parecido?

¿Qué es eso de enlace anticipado (early binding) y enlace tardío (late binding)?

¿Qué me falta por definir? ¿o es un bug de Excel 2010 con Windows 7? (en XP no me pasa)

Diagram_PW1.xls

...¿Qué es eso de enlace anticipado (early binding) y enlace tardío (late binding)?...

Hola Pedro,

Gran alegría poder saludarte. Seguro que tu manejas estos temas mejor que yo, pero por si vale de algo, te dejo mis dos centavos sobre el tema de los enlaces anticipados y tardias (en una discusión ya vieja en la que también participo el maestro neverdelimon1).

No he descargado tu archivo ni revisado tu problema, sólo me acordé por tu pregunta de esa vieja discusión a la que te remito:

Foro Excel • Ver Tema - VB 6 con Excel 2007 SOS SOS SOS

Estimado Mauricio,

Tu inestimable ayuda me anima a seguir indagando en este error que, si me ocurriera en Visual Basic 6 - VB 6 y empleara en mi ejemplo un "enlace tardío" o "en tiempo de ejecución", sería entendible.

Public objChart As Object

[/CODE]

El problema es que se produce con [i][b]Visual Basic para Aplicaciones 7 - VBA 7[/b][/i], empleando un "enlace anticipado" o "en tiempo de compilación" como dijo [b]neverdelimon1 [/b][color=#000000][font=Times New Roman] [/font][/color]en el enlace que me pasaste.

[CODE]Public objChart As Excel.ChartObject
[/CODE]

[ATTACH]41445.vB[/ATTACH]

Entiendo que es difícil tener el entorno de desarrollo que comento (Excel 2010 en Windows 7) para reproducir el error, por lo que aprecio tus comentarios aunque no puedas visualizar este error:

[size=3]Se ha producido el error '-2147417848 (80010108)' en tiempo de ejecución:

Error en el método 'Add' de objeto 'ChartObjects' [/size]

Amigo Pedro, yo tengo Excel 2010 y W7 en la laptop, intente reproducir el problema pero no me sale nada, siempre genera la imagen sin problemas, pudiera ser algún archivo adiconal abierto que este influyendo en el problema???, suerte

nota: tu version que sale en la imagen es 1627, la mia es 1625 por si acaso

Hola Pedro,

lamento no contar con el tiempo para verificar con profundidad. He intentado reproducir tu error en mi máquina (win8 excel 2013-64 bits) y no lo he conseguido.

En todo caso, quizás puedas hacer algunas pruebas con algo así:

Sub prueba1()

    With ActiveSheet.Shapes("Diagram image")

        .CopyPicture

        With ActiveSheet.ChartObjects.Add(.Left, .Top, .Width * 2, .Height * 2).Chart

            .Paste

            .Export ThisWorkbook.Path & "/imagen_tal.gif"

            .Parent.Delete

        End With

    End With

End Sub[/CODE]

[CODE]Sub prueba2()
Dim img As Excel.Shape
Set img = ActiveSheet.Shapes("Diagram image")
img.CopyPicture
With ActiveSheet.Shapes.AddChart
.Height = img.Height * 2
.Width = img.Width * 2
.Chart.Paste
.Chart.Export ThisWorkbook.Path & "/imagen_tal.gif"
.Delete
End With
End Sub[/CODE]

Observa que estamos jugando con la forma de crear el gráfico, que es donde parece que está el error (¿?).

bigpetroman, gracias a tu feedback parece ser un problema de mi configuración de Win7 y/o mi versión de Excel 2010.

mjrofra, antes de escribir este tema ya había probado las dos opciones que me sugieres y siempre me sucedía el error al llamar por segunda vez a: ActiveSheet.ChartObjects.Add o ActiveSheet.Shapes.AddChart

Digo que me sucedía porque, después de actualizar Windows 7 y "Hacer click y ejecutar" de MS Office, ya consigo que cree varios Shapes y CharObjects sin errores.

¡¡¡ TEMA SOLUCIONADO !!! (¿¡ hasta la próxima vez que suceda !?)

P.D.: seguro que los errores en los objetos del diccionario de VBA tenían que ver con algún problema en el maldito registro de Windows. :upset: