vba窗体随计算机屏幕大小而大小

要想vba窗体随计算机屏幕大小而改变大小

 

思路是：1.将Excel最大化,因为vba窗体的应用程序是application，

              2.画出窗体的大小与应用程序相同大小

               3.窗体的画法是move

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized    'EXCEL最大化
        Me.StartUpPosition = 0             '本窗体改为手动
        Me.Move 0, 0, .Width, .Height
    End With
End Sub

Move 方法

                        

移动一个窗体或控件，或者移动 Controls 集合中的所有控件。

语法

对于窗体或控件
object.Move( [Left [, Top [, Width [, Height [, Layout]]]]])

对于 Controls 集合
object.Move( X, Y)

Move 方法的语法有以下几个成分：

成分	描述
object	必需。有效对象名。
Left	可选。单精度值，以磅为单位，表示对象左边缘的横坐标。
Top	可选。单精度值，以磅为单位，表示对象上边缘的纵坐标。
Width	可选。单精度值，以磅为单位，表示对象的宽度。
Height	可选。单精度值，以磅为单位，表示对象的高度。
Layout	可选。布尔量，表示在这次移动之后控件的父对象是否初始化 Layout 事件。其默认值为 False。
X, Y	必需。单精度值，以磅为单位，指定了 Controls 集合中每个控件的当前水平和垂直位置的变化量。

设置

Left、Top、Width、Height、X 和 Y 参数的最大值和最小值，随应用程序的不同而不同。

说明

对于窗体和控件，可将一个选定对象移动到相对于该对象所在窗体的边缘的特定的地方。

可以利用命名的参数，或者可以输入位置参数。如果用命名的参数，可以用任意的次序列出这些参数；如果不用命名参数，必须按上面语法成分给出的顺序输入这些参数，用逗号来标识未指定的参数的相对位置。任何未指定的参数都保持其原值不变。

对于 Controls 集合，可以将此集合中的所有控件由当前所在窗体、框架或页面中的位置移动一规定的距离。