Userform最大化(且內容比例自動放大?) - Excel程式區

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

27^# 跳轉到 »

發表於 2015-5-22 07:24 | 只看該作者

這樣還會蓋到嗎?
bobomi 發表於 2015-5-21 21:18

奇怪咧!! 我匯出的檔案為何不是沒更新, 不然就是沒有 UseForm
重新上傳

自縮.zip (22.41 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

26^#

發表於 2015-5-22 06:28 | 只看該作者

本帖最後由 GBKEE 於 2015-5-22 06:42 編輯

回復 24# PKKO
導致工作列的位置會蓋掉userform的顯示
不過不打緊,userfrom最下方不要放元件就好!

這樣可以嗎?

Option Explicit
Dim Form_Tag As Variant
Private Sub UserForm_Activate()
Form_xlMax
End Sub
Private Sub Form_xlMax() '表單最大化
Dim xZoom As Double, yZoom As Double, e As Control
With Application
.WindowState = xlMaximized
xZoom = .Width / Me.Width '寬放大的比例
'****************
yZoom = .Height / (Me.Height + 20) '高放大的比例
'****************
End With
Top = 0
Left = 0
Width = Width * xZoom
Height = Height * yZoom
For Each e In Controls
With e
.Top = .Top * xZoom
.Left = .Left * xZoom
.Width = .Width * xZoom
.Height = .Height * yZoom
.Font.Size = .Font.Size * yZoom
End With
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

25^#

發表於 2015-5-21 21:18 | 只看該作者

1.zip (2.71 KB)
這樣還會蓋到嗎?

TOP

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

24^#

發表於 2015-5-20 21:56 | 只看該作者

回復 23# PKKO

zoom 就只能這樣 (它的寬高都只能是相同比例)
要想下邊的控件不會過頭, 那麼右邊就會有多餘的空間
要想右邊沒有多餘的空間 , 那麼下邊的控件就會過頭

自己縮放沒有上面問題 ( 但是字型無法完美縮放  )
終極一點  自己縮放 + Zoom 混搭 -> 字型可以較完美縮放

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

23^#

發表於 2015-5-20 21:51 | 只看該作者

回復 21# GBKEE

感謝超版大大,這個超好用的了(而且程式碼很簡短)
只是表單偵測的高度部分,他會偵測整個螢幕的高度
無法只偵測到工作列的高度就好

導致工作列的位置會蓋掉userform的顯示
不過不打緊,userfrom最下方不要放元件就好!

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

22^#

發表於 2015-5-20 21:00 | 只看該作者

回復 20# bobomi

比例上還是會有點奇怪,放到最大時,右邊會有多餘的空間,不過沒關係,已經很感謝妳囉!

PKKO

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

21^#

發表於 2015-5-20 13:56 | 只看該作者

本帖最後由 GBKEE 於 2015-5-20 14:00 編輯

回復 19# PKKO
直接放大

Option Explicit
Dim Form_Tag As Variant
Private Sub UserForm_Initialize() '表單初始化的程式
Dim e As Control
Form_Tag = Split(Top & "," & Left & "," & Width & "," & Height & "," & Font.Size, ",")
Form_xlMax
End Sub
Private Sub Form_xlMax() '表單最大化
Dim xZoom As Double, yZoom As Double, e As Control
With Application
.WindowState = xlMaximized
xZoom = .Width / Form_Tag(2) '寬放大的比例
yZoom = .Height / Form_Tag(3) '高放大的比例
End With
Top = 0
Left = 0
Width = Width * xZoom
Height = Height * yZoom
For Each e In Controls
With e
.Top = .Top * xZoom
.Left = .Left * xZoom
.Width = .Width * xZoom
.Height = .Height * yZoom
.Font.Size = .Font.Size * xZoom
End With
Next
End Sub