Aumentar o disminuir un formulario vba Excel

[Benito Bartolomé]

Hola, buenos días a todos;

-Soy nuevo en este foro, disculpen si me equivoco en algo.

-He subido una macro la cual tiene un formulario con una serie de botones de opción. A mi la que mas me interesa es la que pone "sizable". Si activo esta opción y tiro de un lateral de la ventana pues el formulario anchea o encoge según mueva el ratón.

Esta opción me gustaría implementarla al segundo formulario que pone "frm_Ajustable". Este formulario está vacio no tiene ninguna macro para no entorpecer el trabajo.

Si tienen alguna duda no duden en comunicarmelo.

Lo dicho buenos días y semana a todos.

Redimensionar.xls

[ikanni]

Hola Benito,

Apañado ?

Redimensionar.xls

[Antoni]

Pues yo me he apañado también, bueno, más o menos.

Redimensionar.xlsm

[Benito Bartolomé]

Hace 1 hora, Antoni dijo:

Pues yo me he apañado también, bueno, más o menos.

Redimensionar.xlsm 25.12 kB · 0 descargas

Buenos días Antoni, la macro perfecta , muy comprimida, y muy rápido. No se que mas pedir, si acaso un café, jajaja. Te lo agradezco muchísimo. 

Por cierto, ¿no tiene un gato que se llama Guismo?, si es así mis respetos también.

 

[Benito Bartolomé]

Hace 1 hora, ikanni dijo:

Hola Benito,

Apañado ?

Redimensionar.xls 129.5 kB · 1 descarga

Buenos días Ikani;

-He probado su macro y si hace lo de estirar y encoger pero no lo hace con los controles. Me ha pasado otra macro Antoni, que si hace todo eso. Lo digo por si quieres comprobar lo que intentaba conseguir. 

De todas formas muchísimas gracias por responder, te lo agradezco igualmente.

Un abrazo.

[Antoni]

Hace 10 minutos , Benito Bartolomé dijo:

Buenos días Antoni, la macro perfecta , muy comprimida, y muy rápido. No se que mas pedir, si acaso un café, jajaja. Te lo agradezco muchísimo. 

Por cierto, ¿no tiene un gato que se llama Guismo?, si es así mis respetos también.

 

Aquí está la bestia:

 

[Benito Bartolomé]

Ah, imaginabas que eras tú,  ta me has respondido en varias ocasiones  en el otro foro. Pues na, saudos os dous.

A macro moi ben Antoni. 

[Benito Bartolomé]

Hace 3 horas, Antoni dijo:

Pues yo me he apañado también, bueno, más o menos.

Redimensionar.xlsm 25.12 kB · 1 descarga

Hola Antoni;

Un pequeño detalle  que igual se puede  solucionar.  Cuando reduzco el zoom a menos de diez la macro genera un error, me explico:

Si tiro de la esquina de la ventana  y voy encogiendo llega un momento en el que salta el error, no he probado al incrementar.

Lo intente con  "On Error Resume Next" 

y no salta, pero me gustaría añadir un mensaje si es posible. 

 

¿Cómo lo ves?

¿Cómo  se podría depurar  dicho error?

Saudos.

[Antoni]

La mejor manera de tratar un error es evitar que se produzca, o sea, evitar que el zoom pueda salirse de sus limites (10-400).

Te dejo un ejemplo que te sirve para cualquier formulario, solo tienes que copiar el módulo UserformResize y  añadir estas líneas en cada formulario:

Private Sub UserForm_Initialize()
MinZoom = 60: MaxZoom = 125 'Entre 10 y 400
ResizeWindowSettings Me, True
End Sub

Private Sub UserForm_Resize()
UserForm_ResizeZoom Me
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
RestoreZoom Me
End Sub

Nota: Con doble-click en el formulario, se recuperan las dimensiones iniciales.

Redimensionar múltiple.xlsm

[Benito Bartolomé]

Bo día Antoni;

-Gracias por la nueva adaptación. Me gusta y muy bien la opción del doble-click para recuperar estado original.

Estoy a pruebas con él. 

En principio está todo correcto pero con el uso a veces aparecen flecos. Espero no tener que hacer mas preguntas.

Apertas.???

[Benito Bartolomé]

En 17/11/2020 at 11:53 , Antoni dijo:

La mejor manera de tratar un error es evitar que se produzca, o sea, evitar que el zoom pueda salirse de sus limites (10-400).

Te dejo un ejemplo que te sirve para cualquier formulario, solo tienes que copiar el módulo UserformResize y  añadir estas líneas en cada formulario:

Private Sub UserForm_Initialize()
MinZoom = 60: MaxZoom = 125 'Entre 10 y 400
ResizeWindowSettings Me, True
End Sub

Private Sub UserForm_Resize()
UserForm_ResizeZoom Me
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
RestoreZoom Me
End Sub

Nota: Con doble-click en el formulario, se recuperan las dimensiones iniciales.

Redimensionar múltiple.xlsm 31.98 kB · 3 descargas

CONSULTA:

Hola Antoni,  intento subir un pequeño video y a ver si lo hice bien. 

En el se puede ver como ese programa redimensiona el formulario incluso cuando se maximiza.

Ves que al tirar de la esquina inferior y al soltar se redimensiona automáticamente al igual que al pulsar sobre el botón maximizaar.

Antoni, ¿sería posible modificar la macro para hacer algo parecido o es demasiado lo que pido o pretendo?

Un saludo e bo día e finde.

VIDEO AS

[Antoni]

...............

[Antoni]

Tenía esto por ahí, si te interesa, este fin de semana intento estandarizarlo para poder ser usado en varios formularios.

Pero un consejo, no te pierdas en adornos que en el fondo solo hacen que complicar las aplicaciones y no sirven para nada o casi para nada y reducen el rendimiento.

Y desde el punto de aprendizaje no te aporta nada en absoluto.

Redimensionar formulario Plus.xls

[Benito Bartolomé]

Hola Antoni; 

Gracias de nuevo, por lo que veo has visto el video de lo cual tenía dudas si lo había hecho bien. Ya he comprendido su funcionamiento con lo cual en próximas consultas aparte de la consulta en cuestión trataré de explicar también en el video para mejor comprensión.

En cuanto la macro estupenda como siempre y si me interesa. 

-Dos comentarios: 

1.-Me gustaría que hubiese compatibilidad con la macro de minimizar-maximizar que me has pasado por la mañana si es posible.

2.-En cuanto al consejo que me has dado te lo agradezco y pienso igual que tú y por eso las opciones de minimizar, maximizar o ampliar las ejecuto mediante la casilla de verificación debido a que como bien dices en muchas ocasiones no las usaré.

¿No sé si te parece bien así?. Agradezco siempre los consejos de quien sabe mas que uno.

Moi agradecido por todo e bo finde que parece que vai sair o ?.

 

[Benito Bartolomé]

Bo día Antoni,  disculpa  que me diriga a ti por este medio. En el último post sobre este tema me contestaste:

"Tenía esto por ahí, si te interesa, este fin de semana intento estandarizarlo para poder ser usado en varios formularios"

Veo que  la pregunta en el foro está  como solucionado por ti  de ahí  mi duda. Te había respondido  que sí estaba interesado.  

-Disculpa si es que me he precipitado y aún no lo tienes y si no llegaste a leer mi último post pues si estoy interesado porque me gusto mucho ese último punto de vista.

No te ocupo más tiempo y discúlpame si estoy metiendo la pata.

Un fuerte  abrazo desde el Val Millor. 

[Antoni]

Estoy muy liado con temas personales y no dispongo del tiempo necesario para este tema ?, de momento, te tendrás que conformar con lo que hay.

Bo dia dende Bertamiráns. ?

[Benito Bartolomé]

Gracias  Antoni,  primero  soluciona lo tuyo que espero no sea grave. Yo puedo esperar no te preocupes, cuando hayas solucionado hablamos. Un fuerte  abrazo  y mucho ánimo.  Saudos a Bertamiráns.

Ahh, gracias por contestar.