Ver Mensaje Individual
  #5 (permalink)  
Antiguo 02/03/2006, 10:25
potypoty
 
Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 18 años, 6 meses
Puntos: 1
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: