Gráfico como Gif

[Adrian]

Hola a Todos, después de mucho esfuerzo y transpirar bastante LOGRÉ, guardar un gráfico de una hoja Excel como gif (en el mismo directorio que el libro). No sé si es lo óptimo solo sé que me...

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í

 

[galileogali]

No quiero desilusionarte pero esta es una vieja tecnica, que se atribuye JW.
https://spreadsheetpage.com/index.php/tip/displaying_a_chart_in_a_userform/

Hay un archivo descargable...

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í

 

[galileogali]

La tecnica, rememorando, la trajo el recordado y enriquecedor ioyama, cuya desaparicion desconozco a qué atribuirla.....en el foro de Exceluciones

 

[galileogali]

Esta linea en tu ejemplo, tuve que modifcarla

<i>
</i> Imagen.Picture = LoadPicture("grafico.gif")

por

Imagen.Picture = LoadPicture(ThisWorkbook.Path & "\grafico.gif")

...

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í

 

[Adrian]

Hola Gali, si lo vi es identico, no vistito las páginas en inglés porque no entiendo mucho, pero esas
Set CurrentChart = Sheets("Sheet1").ChartObjects(1).Chart
Fname = ThisWorkbook.Path &...

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í

 

[Adrian]

Si hubiese puesto en el open chdir thisworkbook.path no ería necesario Imagen.Picture = LoadPicture(ThisWorkbook.Path & "\grafico.gif")

 

[pierblack]

hOLA quisera perdirles si pudieran hacer un ejemplo con esa GDI.

 

[fervabi22]

Muy bueno