TwipsPerPixelX Function

рдЯрд┐рдкрд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдкрдХреНрдЬреЗрд▓рдХреЛ рдЪреМрдбрд╛рдЗ рдкреНрд░рддрд┐рдиреАрдзрд┐рддреНрд╡ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


n = TwipsPerPixelX

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдЙрджрд╛рд╣рд░рдг:


Sub ExamplePixelTwips
    MsgBox "" & TwipsPerPixelX() & " Twips * " & TwipsPerPixelY() & " Twips",0,"Pixel size"
End Sub