TwipsPerPixelX Function

n = TwipsPerPixelX

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