Autres test de coeff point to pixel

Simply

XLDnaute Occasionnel

• 21 Août 2019

• #2

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2019

• #3

Bonsoir @patricktoulon, @Simply,

1,33333333333333 1

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 21 Août 2019

• #4

merci messieux
donc 365 en 64 activepane fonctionne

mapomme tu n'a pas donné ta version

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Août 2019

• #5

Re, Oubli corrigé.

Code:

1,33333333333333
1

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Août 2019

• #6

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

des retours sur 2010 2013 2016 en 64 serait bien venu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2019

• #7

Bonjour le fil

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

VB:

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

 

Vote positif 0 Vote négatif