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.

No lo tengo muy claro el funcionamiento de estos códigos, los he
metido donde me has dicho, se supone que al volver a abrir el archivo
se me tiene que redimensionar la ventana?

Se supone que cuando cambies algo en la hoja en la que pegaste el código.
No necesitas cerrar y volver a abrir...

"~ jose ~" escribió en el mensaje
news:
No lo tengo muy claro el funcionamiento de estos códigos, los he
metido donde me has dicho, se supone que al volver a abrir el archivo
se me tiene que redimensionar la ventana?

Vale, ya lo estoy haciendo funcionar,
pero para desactivar los botones de maximizar y minimizar como se hace?
Lo que quiero conseguir es darle un poco de aspecto a la hoja como si
fuera un programilla.
También tengo curiosidad por lo que comentaba antes:

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

Gracias

HOLA... mira haber si te entendi... necesitas que en una hoja las columnas A
a la J (un decir) se miren y de la K en adelante no se miren... puedes hacer
lo siguiente...

selecciona desde la columna K hasta la ultima columna que tienes y dale
ocultar... y eso hace que desaparescan las columnas y no te permita pasar de
la columna J y si quieres puedes portegerla para que no puedan reinvetir el
proceso...


espero y te haya ayudado...