我正在为 Word 2007 编写 VBA 程序。
我创建了一个用户窗体,需要使用脚本调整其大小。
我注意到它不是像素
Me.Width = pixelW // form appears about 20% larger than the pixel width
And its 不是缇 either
Me.Width = (((1 / TwipsPerPixelX()) * pixelW)) / 1) // form appears very small
那么 Office 2007 VBA 中如何测量表单的宽度和高度呢?
当通过代码操作表单上的控件时,默认情况下大小以缇为单位(我相信如果您更改表单的 ScaleMode 属性,您可以选择使用其他单位)。
你的转换公式是错误的(很容易出错)。试试这个,包装在一个函数中,以避免代码重复,每个重复都可能出现拼写错误
Function nTwipsFromPixelsX(ByVal nPixels As Long) As Long
nTwipsFromPixels = TwipsPerPixelX() * nPixels
End Function
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)