怎样以像素取得单元个的宽高？

丸究阵引

是的！用取得每英寸的像素，在折合成磅的方法精度很高，测试没问题但还是有点心里不踏实。

丸究阵引

找了半天excel.vba关于将磅转换为像素的内置命令，看样子是没有了，只能通过以下函数转换。 误差有时和excel的计算相差一个像素. 贴出来给用到的朋友节省些时间，要有更好的方法别忘了告诉我！

常用单位对比 1英寸近似=72磅 1英寸=25.4毫米 1英寸约为 1440 缇(twip) 1厘米= 567 缇(twip)

Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Sub test() w = PointsToPixelsX(Range("B3").Width) h = PointsToPixelsY(Range("B3").Height) End Sub

'将磅转换为像素X Private Function PointsToPixelsX(PointsX As Long) As Long Dim hDCDesk As Long, lngPix As Long Const LOGPIXELSX = 88 hDCDesk = GetDC(0) lngPix = GetDeviceCaps(hDCDesk, LOGPIXELSX) PointsToPixelsX = PointsX / (72 / lngPix) ReleaseDC 0, hDCDesk End Function

'将磅转换为像素Y Private Function PointsToPixelsY(PointsY As Long) As Long Dim hDCDesk As Long, lngPix As Long Const LOGPIXELSY = 90 hDCDesk = GetDC(0) lngPix = GetDeviceCaps(hDCDesk, LOGPIXELSY) PointsToPixelsY = PointsY / (72 / lngPix) ReleaseDC 0, hDCDesk End Function

stanleypan

堤与像素相互转换的通用函数

http://www.office-cn.net/Article/Class5/Class16/200411/556.html

丸究阵引

呵呵！这种东东源头大多来源于MSDN，懂得原理一搜就有了，当然知道用GetDeviceCaps就更容易了。

既然用excel.vba我还是比较喜欢内置命令，毕竟要结合的紧密一些，可惜没有（没找到）。

stanleypan

支持,对!源头大多来源于MSDN.知识就是这样,加上自己的思考和领悟就是自己的了.

achen1

我对该问题的看法，看帖子http://club.excelhome.net/viewthread.php?tid=211431&px=0