VBA中表格宽度和高度的单位是多少？

Question

我正在为Word 2007编写VBA。

我创建了一个UserForm，我需要用脚本调整大小。

我注意到它的不是像素

 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

Answer 2

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

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