TwipsPerPixelY Function

n = TwipsPerPixelY

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