av8tordude
08-18-2011, 09:46 AM
I have this code that counts up or down. I keep getting an error each time I want to change the number.
The error is: Unable to set the zoom property of the window class. The highlighted error is: ActiveWindow.Zoom = Zoom.value
Private Sub Zoom_Change()
ActiveWindow.Zoom = Zoom.value
End Sub
Private Sub SpinButton1_SpinDown()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub
Private Sub SpinButton1_SpinUp()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub
The error is: Unable to set the zoom property of the window class. The highlighted error is: ActiveWindow.Zoom = Zoom.value
Private Sub Zoom_Change()
ActiveWindow.Zoom = Zoom.value
End Sub
Private Sub SpinButton1_SpinDown()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub
Private Sub SpinButton1_SpinUp()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub