Question

关于Excel中窗体控件的位置和大小变化的问题

我在Excel中插入了窗体控件，已设置了位置和大小均固定，但换了一台电脑打开后窗体控件的位置和大小都发生了改变，网上查了下，说是电脑显示器分辨率不一样的原因，而导致的。请教高手是不是这个原因，该怎么来解决呢？谢谢！

Answer 1

右键单击选择的控件，单击“设置控件格式”，然后单击“属性”选项卡。
在“对象位置”下，执行下列操作之一：
若要在单元格移动（例如排序单元格）时使控件不离开该单元格，并在单元格高度和宽度发生变化时调整控件大小，请选择“大小、位置随单元格而变”。
注释 表单控件无法使用此选项。

若要在单元格移动（例如排序包含该单元格的区域或表）时使控件不离开该单元格，并使控件的大小不随该单元格高度和宽度的变化而变化，请选择“大小固定，位置随单元格而变”。
若要使控件的位置和大小均不随该单元格的位置、高度和宽度的变化而变化，请选择“大小、位置均固定”。

网上捜的，试试吧

Answer 2

可以在显示表单之前用API函数GetSystemMetrics32 获取屏幕分辨率，再根据屏幕分辨率大小重新设置窗体尺寸.

追问

非常感谢您的回答，具体操作的步骤能说得详细些吗？谢谢！

追答

在vba代码中加入Declare Function GetSystemMetrics Lib "User32" (ByVal nIndex As Long) As Long
Const SM_CYSCREEN As Long = 1 '屏幕高度
ScreenHeight = GetSystemMetrics(SM_CYSCREEN)
然后根据screenheight值大小动态改变form的height和width

追问

您好，这个代码显示错误，怎么加入？

追答

简单例子，供参考。你改变分辨率试试看文件中的窗体控件相对屏幕大小是否不变