Возвращает число твипов в пикселе по вертикали.
n = TwipsPerPixelY
Integer
Sub ExamplePixelTwips
MsgBox "" & TwipsPerPixelX() & " твипов * " & TwipsPerPixelY() & " твипов",0,"Размер пиксела"
End Sub