Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Ajustar el tamaño del formulario a la resolucion del monitor

robgomezs

Recommended Posts

robgomezs Novato

robgomezs

publicado
publicado

Hola Amigos del foro me gustaría saber como puedo hacer para que el formulario se ajuste a la resolución del monitor donde lo trabaje, el problema esta que cree mi proyecto en un monitor de 1280 x 1024 y cuando abro el formulario en un monitor mas pequeño no se puede ver todo, es posible hacer una macro para solucionar esto esto???

Encontré algo de usar el evento GetSystemMetrics pero no se como usarlo...

Muy agradecido por sus aportes...

Enlace a comentario
Compartir con otras webs
Enigma25 Aprendiz

Enigma25

publicado
publicado

Hola

En el evento UserForm_Initialize coloca este codigo :

Claro que,...debes adaptarlo a tu formulario.

With UserForm1
       .Height = Application.Height
       .Width = Application.Width
End With

Espero sea el que buscas.

Saludos.

Enlace a comentario
Compartir con otras webs
Enigma25 Aprendiz

Enigma25

publicado
publicado

Hola

Si puedes, adjunta un archivo para verlo.

En este momento no puedo ver lo archivos en .rar si no mas bien en .ZIP.

En cuanto llegue a la casa e instale el nuevo office te aviso. Pero recuerda, coloca el codigo en el evento Initialize de tu formlario.

saludos.

Enlace a comentario
Compartir con otras webs
robgomezs Novato

robgomezs

publicado
  • Autor
publicado

Saludos...

Sigo teniendo el mismo problema en mi computadora cuya resolución es de 1280x1024 no se ve todo el formulario que cree ya que le puse un botón abajo con la caption margen inferior para poder saber si se ve completo y no se ve al ejecutar la macro.

Cual será el problema...

Enlace a comentario
Compartir con otras webs
Enigma25 Aprendiz

Enigma25

publicado
publicado

Hola

El codigo que te proporcioné es para que se ejecute con el userform al mostrarse en pantalla.

No es para que se ejecute en un botón entidiendo asi lo que comentas.

Seria excelente si subes tu formulario tal como lo tienes diseñado para verlo y asi darte mi apreciacion.

saludos.

Enlace a comentario
Compartir con otras webs
bigpetroman Colaborador

bigpetroman

publicado
publicado

amigos, el tema del ajuste del formularios a la resolución de la pantalla NO es tan simple como cambiar el tamañan del formulario; realmente es un reto realizar dichos ajustes correctamente; aquí les dejo algo de información:

Aporte: Auto-ajustar tamaño y posicion de controles - Foros del Web

aqui hay otra información, es cuestion de buscar dichas funciones:

ACC2: Cómo tamaño dinámicamente formularios para ajustar la resolución de pantalla

aqui en el foro creo que vi algo la otra vez, no recuerdo, seria cuestion de buscar

suerte

Enlace a comentario
Compartir con otras webs
  • 5 years later...
raultrres Novato

raultrres

publicado
publicado

Hola, no se alguien soluciono el problema del tamaño de los formularios al abrirlos en diferentes ordenadores, en mi caso lo compilo en mi ordenador personal con una resolución de pantalla alta, mientras que donde lo voy a usar es demasiado baja por lo que el formulario no se ve del todo ocultando mas de la mitad del mismo. Sobre todo para office 64bits que es donde creo que hay problema.

un saludo

Enlace a comentario
Compartir con otras webs
ikanni Aprendiz

ikanni

publicado
publicado

Hola a todos,

Como dice bigpetroman la historia es algo mas complicada de lo que parece en un principio.

Tengo un módulo(Mòdulo + Clase) que te lo hace y funciona bien pero es para formularios de Access y no se sí se le podría hacer funcionar en Excel y ahora estoy de vacas.

El ejemplo lo desarrolló una comunidad de Access allá por 2007 ya que en esa época comenzaban los monitores con resoluciones superiores a 1024x768x96 y los problemas fueron importantes.

El ejemplo  coje la resolución del PC en el que se ejecuta y redimensiona la ventana y los controles del formulario y luego le das el tamaño que quieres dentro de la pantalla en que se ejecuta.

SIno desistes lo comentas y colgaré el módulo.

Enlace a comentario
Compartir con otras webs
raultrres Novato

raultrres

publicado
publicado
Hace 12 horas, ikanni dijo:

Hola a todos,

Como dice bigpetroman la historia es algo mas complicada de lo que parece en un principio.

Tengo un módulo(Mòdulo + Clase) que te lo hace y funciona bien pero es para formularios de Access y no se sí se le podría hacer funcionar en Excel y ahora estoy de vacas.

El ejemplo lo desarrolló una comunidad de Access allá por 2007 ya que en esa época comenzaban los monitores con resoluciones superiores a 1024x768x96 y los problemas fueron importantes.

El ejemplo  coje la resolución del PC en el que se ejecuta y redimensiona la ventana y los controles del formulario y luego le das el tamaño que quieres dentro de la pantalla en que se ejecuta.

SIno desistes lo comentas y colgaré el módulo.

No me gustaría desistir del tema, y si que he visto alguna macro para detectar la resolución en ese momento, pero sin aplicación a un userform. Pues si pudieras me gustaría poder echarle un vistazo a ese módulo.

Muchas gracias

Un saludo

Enlace a comentario
Compartir con otras webs
ikanni Aprendiz

ikanni

publicado
publicado

Hola,

Os cuelgo el modulo y la clase en archivo de texto.

El modulo se incluye como modulo independiente. Luego el formulario que quieres se redimensione en sus eventos Open y resize debes colocar esto.

-----------------------------------------------------------------

Private Sub Form_Open(Cancel As Integer)

  ScaleFormWindow Me
  Me.InsideWidth = 15309 ' a tu gusto
  Me.InsideHeight = 11340 ' a tu gusto
End Sub


Private Sub Form_Resize()
  ScaleFormControls Me
End Sub

-----------------------------------------------------------

La clase la debes de llamar con su nombre.

REPITO esto funciona en access en excel no lo sé..las apis funcionaran pero todo en su conjunto, no lo sé.

Suerte

Clase_clFormWindow.txt Modulo.txt

Enlace a comentario
Compartir con otras webs
raultrres Novato

raultrres

publicado
publicado
Hace 13 horas, ikanni dijo:

Hola,

Os cuelgo el modulo y la clase en archivo de texto.

El modulo se incluye como modulo independiente. Luego el formulario que quieres se redimensione en sus eventos Open y resize debes colocar esto.

-----------------------------------------------------------------

Private Sub Form_Open(Cancel As Integer)

  ScaleFormWindow Me
  Me.InsideWidth = 15309 ' a tu gusto
  Me.InsideHeight = 11340 ' a tu gusto
End Sub


Private Sub Form_Resize()
  ScaleFormControls Me
End Sub

-----------------------------------------------------------

La clase la debes de llamar con su nombre.

REPITO esto funciona en access en excel no lo sé..las apis funcionaran pero todo en su conjunto, no lo sé.

Suerte

Clase_clFormWindow.txt 9 kB · 3 downloads Modulo.txt 39 kB · 3 downloads

Muchas gracias ya te contaré 

Un saludo

Enlace a comentario
Compartir con otras webs
Virgilio Novato

Virgilio

publicado
publicado

No trata específicamente sobre el formulario pero verás que el formulario se ajusta, si te sale algún error usa el depurador los que esté con error conviertelos en comentarios, esto se debe a que esté archivo usa algunos controles que no siempre están disponibles en todos los ordenadores o que se deba a que sean de versiones diferentes .

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Israel Cassales
      Formula SI con dos opciones segun lo escrito en celda

      Por Israel Cassales · publicado

      Hi Trate de ver que hacían las fórmulas en cuestión pero a su libro le falta o le faltan hojas, por lo que solo podría participar con un par de ideas en general. Lo que entiendo es que según el valor de B3 en C3 debe poner una fórmula u otra, así que es posible que si combina DIRECCION() con INDIRECTO() pueda intercambiar de una fórmula a otra. =SI(B3="Xl",INDIRECTO(DIRECCION(3,5)),SI(O(B3=1,B3=2,B3=3),INDIRECTO(DIRECCION(4,5)),"")) Otra forma sería poner nombre a esas fórmulas en el cuadro de nombres para que las pueda mandar llamar a una o a la otra según el resultado de B3. Por favor tome en cuenta, es solo una idea.
    • Aris8a
      Formulas no me toman los valores de los textboxes

      Por Aris8a · publicado

      Buenas tardes! Tengo el siguiente código: Private Sub btnCargaBancos_Click() Dim TasaCompra, TasaVenta As Double Dim InvBanesco, InvVzla, MontoBanesco, MontoVzla As Double Dim TasaDiaBan, TasaDiaVzla, TasaActual As Double 'Inversion = Val(txtInversion.Text) InvBanesco = Val(CDbl(txtInverBanesco.Text)) InvVzla = Val(CDbl(txtInverVzla.Text)) TasaCompra = Val(CDbl(txtTasaCompra.Text)) TasaVenta = Val(CDbl(txtTasaVenta.Text)) MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanesco / InvBanesco) * (1 - 0.055)      TasaDiaVzla = (MontoVzla / InvVzla) * (1 - 0.055) If TasaDiaBan < TasaDiaVzla Then     TasaActual = TasaDiaBan Else     TasaActual = TasaDiaVzla End If MontoBanesco = FormatNumber(MontoBanesco, 2, True, vbFalse) MontoVzla = FormatNumber(MontoVzla, 2, True, vbFalse) TasaActual = FormatNumber(TasaActual, 5, True, False) txtBcoBanesco.Value = MontoBanesco txtBcoVenezuela.Value = MontoVzla txtTasaDiaria.Value = TasaActual End Sub   Como se puede apreciar InvBanesco ,  InvVzla , TasaCompra y TasaVenta, son valores que introduce el usuario a través de los respectivos cuadros de texto. Tengo los siguientes problemas: a. Las fórmulas no se ejecutan correctamente (pareciese que no reconociese los números entrados vía cuadros de texto). b. Al darle valor cero (0) a cualquiera de los valores de InvBanesco o  InvVzla, me genera un error en TasaDiaBan o TasaDiaVzla (según sea el caso), aunque, como se puede apreciar, debería generar un valor cero (0). Como dije en mi presentación estoy empezando en esto de la codificación...y quiero aprender de Uds! Agradezco su ayuda! Nota: lamentablemente el fichero es mas grande de lo permitido y no pude anexarlo.  
    • MarianoCruz
      Formula SI con dos opciones segun lo escrito en celda

      Por MarianoCruz · publicado

      Hola buenas tardes. En una hoja plantilla donde realizo diferentes consultas de datos. tengo ya establecido dos formulas diferentes con función SI y buscar. estos buscan diferentes rangos de datos y recibendiferentes resultados. Cada formula varia según una palabra o numero  ejemplo si pongo Xl pone la formula 1 y si pongo cualquier numero entre 1 y 3 pone la segunda formula. Lo que necesito hacer es que si en una celda de la columna B3 pongo XL debería de considerar la formula 1 y si pusiera el numero 1 me pondría la segunda formula, dentro de la misma formula. Ya agregue la función SI($C3="Xl",Formula1.. Pero no me funciona, espero me puedan ayudar.   Muchas gracias Mariano   Formula doble si en celda existe.xlsx
    • Israel Cassales
      Ayuda con funcionamiento macro

      Por Israel Cassales · publicado

      Sub control2558() Application.ScreenUpdating = False Dim I As Integer I = 4 While Sheets("FT-ADF-2558").Cells(I, 102) <> "" Sheets("FT-ADF-2558").Cells(6, 82) = Sheets("FT-ADF-2558").Cells(I, 102) Dim NombreArchivo, RutaArchivo As String NombreArchivo = "Hoja Control " & Sheets("FT-ADF-2558").Cells(I, 102) RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".xlsm" Dim NuevoLibro As Workbook Set NuevoLibro = Workbooks.Add Sheets("FT-ADF-2558").Copy Before:=NuevoLibro.Sheets(1) NuevoLibro.SaveAs Filename:=RutaArchivo NuevoLibro.Close I = I + 1 Wend MsgBox ("Proceso generado con éxito") Application.ScreenUpdating = True End Sub  
    • Israel Cassales
      Ayuda con funcionamiento macro

      Por Israel Cassales · publicado

      Ese error es porque no existe la hoja 10 con ese nombre, entonces cámbialo por FT-ADF-2558

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.