关于单位“缇”与“像素”的转换，以及缇与其他单位（例如：厘米）之间的转换...

右键单击桌面，选择属性，选择“设置”选卡，单击高级按钮。
里面出现DPI设置。一般为“正常尺寸(96 DPI)”。
DPI的意思就是 DPI (Dots per Inch)。因此我们可以得到如下换算公式
1 Pixel = 1440 TPI / 96 DPI = 15 Twips
1 Twip = 96 DPI / 1440 TPI = 0.0666667 Pixels

磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。
英寸：2.54 厘米

一般情况下：1厘米=8505像素

Option Compare Database
Option Explicit
Private Declare Function apiGetDC Lib "user32" Alias "GetDC" _(ByVal hwnd As Long) As Long
Private Declare Function apiReleaseDC Lib "user32" Alias "ReleaseDC" _(ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function apiGetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" _(ByVal hdc As Long, ByVal nIndex As Long) As LongPrivate Const LOGPIXELSX = 88
Private Const LOGPIXELSY = 90Public Const DIRECTION_VERTICAL = 1
Public Const DIRECTION_HORIZONTAL = 0'===============================================================================
'-函数名称:         gFunTwipsToPixels
'-功能描述:         转换堤到像素
'-输入参数说明:     参数1:rlngTwips Long 需要转换的堤
'                   参数2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL为X方向
'-返回参数说明:     转换后像素值
'-使用语法示例:     gFunTwipsToPixels 50,DIRECTION_VERTICAL
'-参考:
'-使用注意:         
'-兼容性:           97,2000,XP compatible
'-作者:             王宇虹（参考微软KB)，改进：王宇虹
'-更新日期：        2002-08-26 ,2002-11-15
'===============================================================================
Function gFunTwipsToPixels(rlngTwips As Long, rlngDirection As Long) As LongOn Error GoTo Err_gFunTwipsToPixelsDim lngDeviceHandle As LongDim lngPixelsPerInch As LonglngDeviceHandle = apiGetDC(0)If rlngDirection = DIRECTION_HORIZONTAL Then  '水平X方向lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)Else       '垂直Y方向lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)End IflngDeviceHandle = apiReleaseDC(0, lngDeviceHandle)gFunTwipsToPixels = rlngTwips / 1440 * rlngPixelsPerInch
Exit_gFunTwipsToPixels:On Error Resume NextExit Function
Err_gFunTwipsToPixels:MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.NumberResume Exit_gFunTwipsToPixels
End Function
'===============================================================================
'-函数名称:         gFunPixelsToTwips
'-功能描述:         转换像素到堤
'-输入参数说明:     参数1:rlngPixels Long 需要转换的像素
'                   参数2:rlngDirection Long DIRECTION_VERTICAL是Y方向 DIRECTION_HORIZONTAL为X方向
'-返回参数说明:     转换后堤值
'-使用语法示例:     gFunPixelsToTwips 50,DIRECTION_VERTICAL
'-参考:
'-使用注意:         
'-兼容性:           97,2000,XP compatible
'-作者:             王宇虹（参考微软KB)，改进：王宇虹
'-更新日期：        2002-08-26 ,2002-11-15
'===============================================================================
Function gFunPixelsToTwips(rlngPixels As Long, rlngDirection As Long) As LongOn Error GoTo Err_gFunPixelsToTwipsDim lngDeviceHandle As LongDim lngPixelsPerInch As LonglngDeviceHandle = apiGetDC(0)If rlngDirection = DIRECTION_HORIZONTAL Then  '水平X方向lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSX)Else       '垂直Y方向lngPixelsPerInch = apiGetDeviceCaps(lngDeviceHandle, LOGPIXELSY)End IflngDeviceHandle = apiReleaseDC(0, lngDeviceHandle)gFunPixelsToTwips = rlngPixels * 1440 / rlngPixelsPerInch
Exit_gFunPixelsToTwips:On Error Resume NextExit Function
Err_gFunPixelsToTwips:MsgBox Err.Description, vbOKOnly + vbCritical, "Error: " & Err.NumberResume Exit_gFunPixelsToTwips
End Function