03/03/2006, 02:59
|
 | | | Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 4 meses Puntos: 0 | |
| 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 |