TwipsPerPixelX Function
рдЯрд┐рдкрд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдкрдХреНрдЬреЗрд▓рдХреЛ рдЪреМрдбрд╛рдЗ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
n = TwipsPerPixelX
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдЙрджрд╛рд╣рд░рдг:
Sub ExamplePixelTwips
MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"
End Sub