scrollbar en un userform controlando un zoom

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.

Gracias hector si me sirvio , te quisiera preguntar cual seria la razon la
cual no me funciono el siguiente codigo que le faltaria?
Private Sub UserForm_Initialize()
ScrollBar1.Max = 400
ScrollBar1.Min = 10
ScrollBar1.Value = 100

Label1.Caption = "10 --Percent of " _
& "Original Size- 400"
Label2.Caption = ScrollBar1.Value


End Sub

Private Sub ScrollBar1_Change()

Label2.Caption = ScrollBar1.Value
End Sub

Saludos..


"Héctor Miguel" wrote:

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.

hola, Javier !

salvo porque no se aprecia alguna instruccion que modifique realmente el zoom de la ventana -?-
que significa exactamente que no te funciono el codigo que expones ?

saludos,
hector.

__ la consulta original __

... cual seria la razon la cual no me funciono el siguiente codigo que le faltaria?
Private Sub UserForm_Initialize()
ScrollBar1.Max = 400
ScrollBar1.Min = 10
ScrollBar1.Value = 100

Label1.Caption = "10 --Percent of " _
& "Original Size- 400"
Label2.Caption = ScrollBar1.Value


End Sub

Private Sub ScrollBar1_Change()

Label2.Caption = ScrollBar1.Value
End Sub