Function PtoPix()
With ActiveWindow.Panes(1)
Z = .Parent.Zoom / 100
PtoPix = (((.PointsToScreenPixelsX(1001) - .PointsToScreenPixelsX(0)) / 1001) / Z)
End With
End Function
Function PtoPix2()
'ici on prends pas le zoom en compte
With ActiveWindow.Panes(1)
PtoPix2 = ((.PointsToScreenPixelsX(1001) - .PointsToScreenPixelsX(0)) / 1001)
End With
End Function
Sub test()
MsgBox PtoPix
End Sub
Sub test2()
MsgBox PtoPix2
End Sub