Question

请教，使用Excel VBA 如何使得窗体大小自适应？

即，当窗体在分辨率高的机器上显示时正好满屏，但，在分辨率低的屏幕上时却放不下。请教，是否有方法能够自适应？

Answer 1

使用以下代码获取屏幕分辨率：
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub DisplayMonitorInfo()
Dim X As Long, Y As Long
X = GetSystemMetrics32(0) ' 宽度（像素）
Y = GetSystemMetrics32(1) ' 高度（像素）
End Sub

然后再根据高宽计算并设置窗体及各控件大小即可

Answer 2

我是不建议你设计那么大的窗口。可以设计稍微小点，用滚动条控制显示。或者用选项卡。
因为如果根据分辨率来调整窗口大小的话，还要控件一起调整，很麻烦，我想你窗口设计那么大，控件肯定不少吧。