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