Excel - Seleccionar fila del ListBox y muestre Gráfico

Hola, tengo un ListBox cargado con registros, quiero que al seleccionar un registro se cree un gráfico en el Frame3 y así sucesivamente. Por ahora no sé cómo arrancar con el código.
El Archivo ya tiene el código donde el Formulario se activa al seleccionar la celda V1 de la Hoja (“Buscar”), al seleccionar el OptionButton1 se cargan los registros en el ListBox

El gráfico debería mostrarse así.

• Seleccionar-ListBox-crear-Grafic.rar(66,6 KB)

El Excel no tiene un objeto para poner gráficos para el formulário.
Hay un truco que es crear un grafico en la hoja y copiarlo en el formulário.

Existen varias páginas que explican como hacerlo. Puedes buscar en GOOGLE: "excel vba gráfico en userform"

https://www.youtube.com/watch?v=QmZFi2-U8XU

https://blog.excelforo.com/2013/02/vba-cargar-un-grafico-en-un-formulario.html

Saludos.
\\//_

Estimado, ya adapté el código para que me muestre el Gráfico cuando hago doble clik en la Hoja(“Buscar”).

Funciona de la siguiente manera; cuando hago clik en celda AK1 se muestra el formulario y al hacer doble Clik en ListBox carga el registro de datos en las celdas (“AI2, AO2”) y se crea un gráfico que lo convierte en imagen para cargar al control Image1 del formulario, una vez que se carga el gráfico en formulario este automáticamente se elimina de la Hoja y del archivo GIF. Y así con cada registro que se seleccione del ListBox.
Sin embargo, lo ideal es que el gráfico se cargue cuando estoy ubicado en la parte inicial de la Hoja(“Buscar”) para hacer Clik en V1 y se cargue el formulario, hasta ahí todo bien, pero la hacer Doble Clik en el ListBox para cargar el gráfico me marca error “Se ha producido el error ‘481’ en tiempo de ejecución: Imagen no valida”

Otro detalle me gustaría que el tamaño de la imagen del gráfico se acomode automáticamente al tamaño del control Image1

Envío Archivo

Saludos

• Seleccionar-ListBox-crear-Grafic.rar(70,8 KB)

Estimados, ya consegui que muestre el Gráfico cuando hago doble clik en una fila del ListBox en la Hoja(“Buscar”).
Lo único que hasta ahora no lo consigo es que el tamaño de la imagen del gráfico se acomode automáticamente al tamaño del control Image1
En la ventana de propiedades modifique el PictureSizeMode = fmPictureSizeModeStretch para que la imagen se acomode en todo el ancho y altura del control Image1 pero el problema es que la imagen queda deforme, por eso necesito solucionar eso con código.

• Seleccionar-ListBox-crear-Grafic.rar(71,9 KB)

Para que la imagen quede bien en el formulario hay que redimensionar el gráfico antes de crear la imagen.

Solo he realizado 2 cosas:
- Ampliar el objeto imagen
- Redimensionar el grafico para que se ajuste al formulario con estas dos instrucciones:


Adjunto libro.

Saludos.
\\//_

• Seleccionar-ListBox-crear-Grafic-Ver.01.rar(56,0 KB)

Hola Antoni, lo siguiente:
En el último Archivo que envíe el Gráfico se mostraba de la siguiente manera.




En el Archivo que envíaste ahora el Gráfico se muestra distinto, la idea es que mantenga los datos originales.




Ademas la idea es que el Formulario y el control Image1 mantenga su tamaño original. Lo que se quiere es que la imagen del Gráfico se acomode al ancho y altura del control Image1

Saludos.

Veamos si así esta mejor:



Para ajustarlo en anchura debes modificar el grafico no la imagen.

Saludos.
\\//_

• Seleccionar-ListBox-crear-Grafic-Ver.02.rar(65,2 KB)

Antoni, la idea es que el Formulario y el control Image1 mantenga su tamaño original. El que debe adaptarse al tamaño del Formulario y control Image1 es el Gráfico.

Estoy tratando de hacerlo a traves de zoom con codigo, pero me marca error el código que trato de implementar.

'Zoom al Alto y Ancho del Gráfico
With CH
'.Axes(xlCategory).MaximumScale = 10
.Axes(xlCategory).MaximumScale = 100
.Axes(xlValue).MinimumScale = 10
'.Axes(xlValue).MaximumScale = 100
End With

Saludos

• Seleccionar-ListBox-crear-Grafic.rar(71,6 KB)

Entiendo que es esto lo que quieres:



Cambia la propiedad PictureSizeMode del objeto Image1 al valor 1 - fmPictureSizeModeStrech

Saludos.
\\//_

• Seleccionar-ListBox-crear-Grafic-Ver.03.rar(107,0 KB)

En la ventana de propiedades modifique el PictureSizeMode = fmPictureSizeModeStretch para que la imagen se acomode en todo el ancho y altura del control Image1 pero el problema es que la imagen queda borrosa, por eso quiero ver la posibilidad que se pueda solucionar con código.

En la Hoja ("Buscar") cuando manualmente se extiende el Grafico no se ve borroso, por eso creo que con código debiera verse nítido el ZOOM.

Estimado Antoni, en todo caso le daré la otra solución que es acomodar el control Image1 al tamaño del gráfico. Igual quedaría solucionado porque la idea es que el gráfico no pierda nitidez.

Muchas gracias por tu aporte.

Aquí tienes dos cosas diferentes.
Para el ojo humano parece lo mismo pero no lo es, uno el gráfico y dos la imagen del gráfico.
Cuando modificas el tamaño del gráfico Excel se encarga de ajustar el contenido con mayor o menor éxito.
Cuando modificas el tamaño de la imagen, esta se distorsiona.
Lo cual significa que debes ajustar el tamaño del gráfico y después el tamaño del objeto Image1 a la imagen.

Saludos.
\\//_