Forums Últimos mensajes - Powered by IBM
 

scrollbar en un userform controlando un zoom

22/06/2007 - 03:57 por JAVIER | Informe spam
hola amigos quisiera preguntarles como puedo controlar un scrollbar todo del
VBA
donde manipule el zoom del activewindow espero sus comentarios y ayuda...
saludos
 

Leer las respuestas

#1 Héctor Miguel
22/06/2007 - 05:41 | Informe spam
hola, Javier !

... como puedo controlar un scrollbar todo del VBA donde manipule el zoom del activewindow ...



si suponemos que lo haras por medio de un formulario...
inserta un control scrollbar [ScrollBar1] y un control etiqueta [Label1] con las siguientes propiedades:
scrollbar: Min -> 1 Max -> 391
label1: WrapText -> False Autosize -> True

copia/pega las siguientes lineas en el modulo de codigo del formulario:

Private Sub ScrollBar1_Change()
ActiveWindow.Zoom = ScrollBar1 + 9
Label1.Caption = "Zoom actual: " & ScrollBar1 + 9
End Sub
Private Sub ScrollBar1_Enter()
ScrollBar1 = ActiveWindow.Zoom - 9
Label1.Caption = "Zoom actual: " & ScrollBar1 + 9
End Sub
Private Sub ScrollBar1_Scroll()
Label1.Caption = "Zoom actual: " & ScrollBar1 + 9
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares