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.