-
Solved: scrollbar zoom
i have this code in a userform scroll bar that adjust the zoom. When I display the userform, how can I display the sliding bar to the correct position relative to the screen zoom?
for example, if the screen resolution is 50%, the scroll bar position should be in the middle of the sliding area.
Private Sub ScrollBar1_Change()
With ActiveWindow
.Zoom = ScrollBar1.Value
Zoom = .Zoom & "%"
End With
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules