返回列表 上一主題 發帖

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

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

想請問一下大大
之前VBA表單寫好後
本身表單要填寫的內容較多
以目前一般22吋螢幕看還OK
但是換到筆電上面
發現表單開啟後
最下面的按鍵就按不到了
有辦法利用滑鼠將表單大小等比縮小嗎?

因為我利用按鍵縮小
改變了表單大小
但是內容沒有等比縮小
  1. Sub 設定自訂表單的尺寸()
  2. MsgBox “將UserForm1的高度與寬度各放大1.5倍”
  3. takasa = UserForm1.Height
  4. haba = UserForm1.Width
  5. UserForm1.Height = takasa * 3/2
  6. UserForm1.Width = haba * 3/2
  7. UserForm1.Show
  8. MsgBox “回復原來的狀態”
  9. UserForm1.Height = takasa
  10. UserForm1.Width = haba
  11. End Sub
複製代碼
有其他解決方式
可以解答我的疑惑呢? 感激不盡 >//<
Jared

回復 3# GBKEE

感謝大大的幫忙,又學到了一招
Jared

TOP

回復 2# stillfish00

果然表單太複雜也不行,但還是感謝大大幫忙^^
Jared

TOP

回復 3# GBKEE


    試了一下,如果要還原是要按哪個按鍵?>\<
Jared

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題