Redimensionar archivo en pantalla.

"~ jose ~" escribió en el mensaje
news:
Como se pude hacer para que al abrir un archivo se quede el tamaño de
la ventana que yo quiero, y se eliminen (o desactiven) los botones de
minimizar pantalla y de maximizar (o restaurar), así si hago un
archivo en un monitor de 800*600 si el usiario lo abre en un monitor de
1024*768 no se queden las celdas a la derecha del archivo.
Explicado de otro modo (por si acaso), si al crear un archivo en un
monitor con la resolución de 800*600, empleo solo hasta la columna Jy
25 filas, para que si el usuario final emplea una resolución de
1024*768 para qeu no vea hasta las columnas K y L y hasta las filas 37.
A mi se me habia ocurrido eso, que una macro redimensione la pantalla
pero si sabeis alguna otra forma, por ejmeplo que se qeude el archivo
maximizado y que el contenido se centre en el tamaño de la pantalla,
eso sería otra idea, o que no se centre pero haga un zoom de la hoja
al tamaño de la pantalla, ufff que cosas pido verdad?
También vi en una ocasión un archivo que solo se veian las columnas
que empleaba la hoja, osea que si se empleaban hasta la J todas las
demás columnas no se veian, pero no se veian ni la letra K, L, etc
Me explico verdad?
Bueno pues ahí dejo eso, ok?

Saludos.
De alguno de los maestros de este foro:

Pega éste código en un modulo normal.


'*****************************************************
Public Declare Function apiGetSystemMetrics Lib "User32" Alias _
"GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
'*****************************************************




Y este otro en el Change de la hoja
'*****************************************************
Sub Worksheet_Change(ByVal Target As Range)

x = apiGetSystemMetrics(SM_CXSCREEN)

Select Case x
Case 1024: ActiveWindow.Zoom = 103 '<- Adecúa los valores de
Case 800: ActiveWindow.Zoom = 78 ' zoom a tus necesidades
Case 1280: ActiveWindow.Zoom = 130
End Select

End Sub

'*****************************************************

Esto hará que la hoja se 'redimensione' cada vez que haya un cambio en la
misma,
dependiendo de la resolución del monitor actual.
Puedes seleccionar en que celda o celdas quieres detectar cambios.