vba - VBA中表格宽度和高度的单位是什么？

Question

我正在为 Word 2007 编写 VBA。

我创建了一个用户窗体，我需要用脚本调整它的大小。

我注意到它的 不是像素

 Me.Width = pixelW   // form appears about 20% larger than the pixel width

和它的 不是缇 任何一个

 Me.Width = (((1 / TwipsPerPixelX()) * pixelW)) / 1)  // form appears very small

那么在 Office 2007 VBA 中如何测量表单的宽度和高度呢？

Answer 1

通过代码操作窗体上的控件时，默认情况下大小以缇为单位(我相信如果您更改窗体的 ScaleMode 属性，您可以选择使用其他单位)。

您的转换公式有误(很容易出错)。试试这个，包装在一个函数中以避免代码重复，每个重复都有可能出现错别字

Function nTwipsFromPixelsX(ByVal nPixels As Long) As Long
  nTwipsFromPixels = TwipsPerPixelX() * nPixels
End Function