在AI里生产了一段获取字体像素的VBA代码，但结果返回#value

kenews

Function GetFontHeightInPixels(cell As Range) As Single
    Dim points As Single
    Dim twips As Single
    Dim pixels As Single
    Dim screenRes As Single

    ' 字体大小（点）
    points = cell.Font.Size

    ' 转换点数为磅值
    twips = points * 20

    ' 获取屏幕分辨率（每twips per pixel）
    screenRes = Screen.TwipsPerPixelX

    ' 转换为像素
    pixels = twips / screenRes

    GetFontHeightInPixels = pixels
End Function


在AI里生产上面的代码用来获取字体像素，但结果返回#value。搞不懂哪里出了问题

yynrzwh

screenRes = Screen.TwipsPerPixelX
vba应该没有这个函数或方法。

要求字体的像素，例如字体设为16号（pt),即16/72 in
那就要先计算每英寸（in）有多少像素（px).

假设屏幕分辨率为1920*1080，显示器为24英寸（in）（对角线)
则对角线像素点为：SQRT(1920*1920+1080*1080)=2202.907
每英寸像素点(DPI)=2202.907/24=91.7878 px/in

所以字体像素=16/72*91.7878=20.397 px