GefScreen.PixelsToTwipsSize (method)

Converts a size from pixels to TWIPS in the current GefScreen.
Syntax: object.PixelsToTwipsSize Width, Height
Parameters:
Width As long* -
Height As long* -
Description: Converts a size from pixels to TWIPS in the current GefScreen.

Examples

Sub ScreenSize()
  Dim x As Long
  Dim y As Long
  x = 640
  y = 480
  CimGetScreen.Zoom 100
  CimGetScreen.PixelsToTwipsSize x, y
  MsgBox "a 640x480 pixel screen is " & x/20 & "x" & y/20 & " pts"
End Sub
See Also: PixelsToTwipsPos , TwipsToPixelsPos , TwipsToPixelsSize