02/03/2006, 04:01
| ||||
| ||||
| excel con zoom incorporado Es posible que en excel se puedan ver las hojas a un 90% o 120% (da igual) de forma automática cuando otra persona abra ese documento, independientemente de como el tenga configurada la vista?una especie de zoom automatico, muchas gracias |
|
02/03/2006, 06:02
| |||
| |||
| Por supuesto que si. Pon: Private Sub Workbook_Open() ActiveWindow.Zoom = 90 End sub en "ThisWorkbook" y cuando abrás el libro la hoja activa se verá al 90%. Si quieres ver todas las demás con el mismo zoom, tienes 2 opciones: 1- recorrer todas las hojas cuando abres el libro poniendolas el zoom adecuado. 2- Si utilizas macros para moverte por tu aplicación, poner ActiveWindow.Zoom=90 justo después de activar la siguiente hoja. Yo no conozco el código para hacerlo todo a la vez, pero esto funciona porque yo también lo utilizo y con distintos zooms en cada hoja (opción 2).
__________________ El sabio no dice nunca todo lo que piensa, pero siempre piensa todo lo que dice. Aristóteles :pensando: |
|
02/03/2006, 09:13
| ||||
| ||||
| Espero que vuelvas a leer este post, quería preguntarte lo siguiente; tengo un macro con forma de lupa que al pinchar en el veo la hoja al 90%, pero lo que quiero es que si vuelvo a pinchar me lo reduzca al, por ejemplo 80%. Me imagino que habrá que añadirle una línea al código para decirle que si vuelves a pinchar pues ActiveWindow.Zoom = 80, pero como se escribe en visual? muchas gracias |
|
02/03/2006, 10:25
| |||
| |||
| Yo siempre estoy leyendo las distintas dudas que existen por aquí. Así mejoro mi conocimiento de excel y visual y además os echo una mano.  Para lo que me pides ahora yo escribiría en la macro algo así: Aux_zoom = ActiveWindow.Zoom Select case Aux_zoom Case 90 ActiveWindows.Zoom = 80 Case 80 ActiveWindows.Zoom = 70 Case 70 ActiveWindows.Zoom = 60 End select De esta forma si pinchas en esa macro y el zoom es 90 te lo pone al 80%, si es 80 a 70 y si es 70 a 60. Lo acabo de escribir de memoria sin comprobarlo en visual, pero me imagino que si te da algún error será de sintaxis. Ahora no tengo más tiempo, pero si tienes problemas mañana me comentas.
__________________ El sabio no dice nunca todo lo que piensa, pero siempre piensa todo lo que dice. Aristóteles :pensando: |
|
03/03/2006, 02:59
| ||||
| ||||
| Muchas gracias por responder, el código me da un error dice que se requier un objeto, este es el código: Sub holita() Aux_zoom = ActiveWindow.Zoom Select Case Aux_zoom Case 90 ActiveWindows.Zoom = 80 Case 80 ActiveWindows.Zoom = 70 Case 70 ActiveWindows.Zoom = 60 End Select End Sub Muchas gracias |
|
03/03/2006, 05:00
| |||
| |||
 Perdona por mi torpeza  , pero lo escribí de memoria y rápido antes de irme a casita después del curro y he cometido un error.Quitale la "s" a ActiveWindows y ya está. Puedes poner más case si necesitas para 95, 85, 75, etc. Perdón por el despiste.
__________________ El sabio no dice nunca todo lo que piensa, pero siempre piensa todo lo que dice. Aristóteles :pensando: |
|
03/03/2006, 05:24
| ||||
| ||||
| Muchas gracias por la respuesta pero hay una cosilla, que es que solo reduce si la vista está en un 90%, por lo que si abres la pagina en un 100% no te funciona, la modificación es case 100 en vez de case 90 (es una tontería) |
|
03/03/2006, 06:10
| |||
| |||
 Es lo que te comentaba en el sms anterior tu tienes que poner tantos case como posibles zoom quieras contemplar. Si empiezas en 100 deberá haber un case 100 y si pasas a un zoom de 85 debe haber un case 85 para que después pueda seguir reduciendo. El problema que tiene esto es que si cambias manualmente el zoom, por ejemplo a 91, y no hay un case 91, porque no lo has contemplado, el programa se quedará quieto. Para solucionarlo escribe justo antes del end select "case else" y el zoom que quieras que haga si no cumple ninguno de los casos que tú has planificado en la macro.Ya me dirás que tal te va.
__________________ El sabio no dice nunca todo lo que piensa, pero siempre piensa todo lo que dice. Aristóteles :pensando: |
