Autres test de coeff point to pixel

[patricktoulon]

bonjour a tous
il me faudrait un retour sur ce que ca donne en EXCEL 32 et 64 bit

ppx = (ActiveWindow.ActivePane.PointsToScreenPixelsX(Cells.Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / Cells.Width
    MsgBox ppx

ou

ppx = (ActiveWindow.PointsToScreenPixelsX(Cells.Width) - ActiveWindow.PointsToScreenPixelsX(0)) / Cells.Width
    MsgBox ppx

testez les deux SVP merci pour les retours

 

[Simply]

bonjour

Sub Test_Office_365_64() ppx = (ActiveWindow.ActivePane.PointsToScreenPixelsX(Cells.Width) - ActiveWindow.ActivePane.PointsToScreenPixelsX(0)) / Cells.Width MsgBox ppx 'msgbox 1,33333333333333 ppx = (ActiveWindow.PointsToScreenPixelsX(Cells.Width) - ActiveWindow.PointsToScreenPixelsX(0)) / Cells.Width MsgBox ppx 'msgbox 1 End Sub

 

[mapomme]

Bonsoir @patricktoulon, @Simply,

1,33333333333333 1

 

[patricktoulon]

merci messieux
donc 365 en 64 activepane fonctionne

mapomme tu n'a pas donné ta version

 

[mapomme]

Re, Oubli corrigé.

1,33333333333333
1

 

[patricktoulon]

re
bonjour mapomme
ok pour 2010 32bit merci pour le retour

des retours sur 2010 2013 2016 en 64 serait bien venu

 

[Staple1600]

Bonjour le fil

Voilà, idem que les autres, rien à ajouter 😉

Sub Test_XL2K13_W10_64bits()
Dim Wh
Wh = Cells.Width
With ActiveWindow
ppx = (.ActivePane.PointsToScreenPixelsX(Wh) - .ActivePane.PointsToScreenPixelsX(0)) / Wh
ppz = (.PointsToScreenPixelsX(Wh) - .PointsToScreenPixelsX(0)) / Wh
End With
MsgBox ppx & Chr(13) & ppz
End Sub