Cuadrar pantalla

[marroco312]

hola amigos de excel

 

tengo una inquietud, he diseñado un menú estándar en la una hoja que la denomine menú, esta desde el rango A1:M40, confomarda por 15 botones, dos imagenes y texto, me gustaria saber como hago para que la hoja de menu se adapte a cualquier pantalla de pc ya que se sabe que todas las pantallas no son iguales

 

 

saludos, espero me puedan colaborar

[Héctor Miguel]

precisamente, al ser diferentes las pantallas, la resolución, etc. ajustar a (in)determinadas dimensiones las celdas de ese rango (seguramente) terminará quedando desproporcionada la vista

prueba ajustando el zoom con ese rango seleccionado (ya decidirás si lo automatizas por eventos)

Sub Ajustar_Zoom()
  Dim fila As Integer, col As Integer: Application.ScreenUpdating = False
  With ActiveSheet.Range("a1:m40")
    .Select: fila = .Row: col = .Column
    With ActiveWindow
      .Zoom = True: .ScrollRow = fila: .ScrollColumn = col: End With
    .Cells(1).Select: End With
End Sub

saludos,

hector.

[marroco312]

Gracias Hector me fue de gran ayuda