Excel VBA 如何自動調整表單大小

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-7-17 16:56 | 顯示全部帖子

回復 2# stillfish00
加上可還原(原來的大小)

Option Explicit
Dim xME()
Private Sub UserForm_Initialize()
Dim i As Integer, e As Variant
ReDim xME(0 To Controls.Count)
xME(0) = Array(Top, Left, Height, Width, Font.Size)
For Each e In Controls
With e
i = i + 1
xME(i) = Array(.Top, .Left, .Height, .Width, .Font.Size)
End With
Next
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim i As Integer, e As Variant
Static lastY As Single
Debug.Print Shift
If Button = 1 And Shift = 2 Then
If Y - lastY > 5 Then
ResizeUserform 1.1
lastY = Y
ElseIf lastY - Y > 5 Then
ResizeUserform 0.9
lastY = Y
End If
ElseIf Button = 2 And Shift = 2 Then '按下右鍵
Top = xME(0)(0)
Left = xME(0)(1)
Height = xME(0)(2)
Width = xME(0)(3)
Font.Size = xME(0)(4)
For Each e In Controls
With e
i = i + 1
.Top = xME(i)(0)
.Left = xME(i)(1)
.Height = xME(i)(2)
.Width = xME(i)(3)
.Font.Size = xME(i)(4)
End With
Next
End If
End Sub