1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub testallzoom()
For i = 50 To 400 Step 10
ActiveWindow.Zoom = i
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
test_sans_api
Sleep 500
Unload UserForm1
Next
ActiveWindow.Zoom = 100
test_sans_api
End Sub
Sub test_sans_api()
Dim X As Double, Y As Double, Z As Double, versio, ppx As Double
With ActiveWindow
Z = (.Zoom) / 100
If Val(Right(Z, 1)) Mod 2 <> 0 And Z <> 1 Then Z = Z + 0.1
ppx = (.ActivePane.PointsToScreenPixelsY(3) - .ActivePane.PointsToScreenPixelsY(0)) / 3
X = .ActivePane.PointsToScreenPixelsX([d3].Left)
Y = .ActivePane.PointsToScreenPixelsY([d3].Top)
End With
Version = Round(Val(Split(Application.OperatingSystem, " ")(3)))
suppleft = IIf(Version > 6.01 Or Version = 0, -5, 4.4)
supptop = IIf(Version > 6.01 Or Version = 0, 0, 4.4)
With UserForm1
.Show 0
.Left = (X / ppx) * Z + suppleft
.Top = (Y / ppx) * Z + supptop
End With
End Sub |
Partager