2011-08-07 23 views

回答

0

這是從this posting

拖動切換按鈕修改到窗體,並在任何地方放置此代碼的模塊中。點擊切換到「最小化」,然後再次切換。玩數字來獲得你想要的高度和位置。

Dim dWidth As Double 
Dim wasTop, wasLeft As Integer 
Private Sub ToggleButton1_Click() 
    If ToggleButton1.Value = True Then 
     Me.Height = Me.Height * 0.25 
     wasTop = Me.Top 
     wasLeft = Me.Left 
     Me.Top = 400 
     Me.Left = 100 
    Else 
     Me.Height = dWidth 
     Me.Top = wasTop 
     Me.Left = wasLeft 
    End If 
End Sub 


Private Sub UserForm_Initialize() 
    dWidth = Me.Height 
End Sub 
+0

@Vivian我想有一些例子,將盡量減少任務欄,但他們涉及一些欺騙看到[this](http://www.mrexcel.com/forum例如,/showthread.php?t=66828)。這聽起來不像是非常可靠的。 – jonsca

+0

@Vivian你有沒有得到這兩個例子的工作? – jonsca

+0

感謝您的關注。欣賞它:)你能看看我的另一個問題在這裏 - > http://stackoverflow.com/questions/6991742/any-drag-and-drop-api-feature-in-excel-vba – Vivian