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 中如何测量表单的宽度和高度呢？

score 7 · Accepted Answer

通过代码在表单上操作控件时，默认情况下大小为缇（我相信如果您更改表单的 ScaleMode 属性，您可以选择使用另一个单位）。

您的转换公式是错误的（很容易出错）。试试这个，包装在一个函数中，以避免代码重复，每个重复项都可能出现拼写错误

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

score 6 · Accepted Answer

使用 VBA for Access 时，通常以缇和/或厘米表示大小，具体取决于您是从用户界面（厘米）还是从代码（缇）管理它们。例如，您可以以厘米为单位设置组合框控件的列大小（通过在窗体处于设计模式时在控件的属性中输入相应的值）或以缇为单位（通过在窗体打开时从代码更新这些值） .

我想这也适用于 Word 的 VBA。我建议你写下 cmToTwips 和 TwipsToCm 函数来进行度量转换

2 回答 2