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

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

17^# 跳轉到 »

發表於 2015-5-20 08:25 | 只看該作者

回復 16# bobomi

大大,裡面沒有userform = =

PKKO

TOP

bobomi

中學生 Rank: 2

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

16^#

發表於 2015-5-19 22:40 | 只看該作者

UserForm.Zoom3.zip (15.19 KB)

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

15^#

發表於 2015-5-19 20:42 | 只看該作者

回復 14# GBKEE

感謝,已了解使用方式!

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兔年全勤獎章

14^#

發表於 2015-5-19 19:45 | 只看該作者

回復 13# PKKO

10# 的程式碼
放大: 鍵盤Ctrl 鍵 + 按下左滑鼠鍵
縮小: 鍵盤Ctrl 鍵 + 按下右滑鼠鍵
還原: 鍵盤Shift鍵 +按下滑鼠任一鍵

If Shift = 2 Then 'Ctrl 鍵
Select Case Button '滑鼠
Case 1 '按下左滑鼠鍵。: 放大
xZoom = 1.2 '放大 %2
Case 2 '按下右滑鼠鍵。: 縮小
xZoom = 0.8 '縮小 %2
End Select
Zoom_UserForm xZoom '表單縮放程式
ElseIf Shift = 1 Then 'Shift 鍵 +任一滑鼠按鍵
Revert_UserForm '表單還原原本大小
End If

複製代碼

11#的程式碼
表單開啟自動最大化

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

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

13^#

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

回復 11# GBKEE

超版大大,我放入表單內使用,並取代USERFORM的所有程式碼,但無論怎麼點滑鼠都無法反映?

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

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

12^#

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

本帖最後由 PKKO 於 2015-5-19 19:01 編輯

回復 8# bobomi

javascript:;
感謝大大,我測試過可以自動放大的userform 超酷的~跟網頁一樣自由奔放,但....放大效果不佳,以您的userfrom來放大之後會發現比例怪怪的
我想原因應該是跟妳說的一樣,zoom只能同時放大,無法只調整任何一邊的關係

至於13"電腦的部分,我測試過妳最後的程式碼,跟之前的一樣呢!會超出邊界(本身原本的大小是不會超過的)

附件是我的USERFORM的大小!

Documents.rar (2.29 KB)

USERFORM2

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兔年全勤獎章

11^#

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

回復 10# GBKEE
表單最大化

Option Explicit
Private Sub UserForm_Initialize() '表單初始化的程式
Dim e As Control
For Each e In Me.Controls
e.Tag = e.Top & "," & e.Left & "," & e.Width & "," & e.Height & "," & e.Font.Size
Next
Form_xlMax
End Sub
Private Sub Form_xlMax() '表單最大化
Dim xlMax As Double, ylMax As Double, xZoom As Double
Dim e As Control
With Application
.WindowState = xlMaximized
xlMax = .Width
ylMax = .Height
End With
xZoom = 1
Do While Width < xlMax
Width = Width * xZoom
Height = Height * xZoom
For Each e In Controls
With e
.Top = .Top * xZoom
.Left = .Left * xZoom
.Width = .Width * xZoom
.Height = .Height * xZoom
.Font.Size = .Font.Size * xZoom
Debug.Print xZoom, .Font.Size
End With
Next
xZoom = xZoom * 1.0000654
Loop
Top = 0
Left = 0
End Sub

複製代碼

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

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兔年全勤獎章

10^#

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

本帖最後由 GBKEE 於 2015-5-18 10:05 編輯

回復 9# PKKO
試試看自己縮放.
這表單的程式碼

Option Explicit
Dim X As Double, Y As Double, e As Control
Private Sub UserForm_Initialize() '表單初始化的程式
Dim e As Control
X = Width
Y = Height
For Each e In Me.Controls
e.Tag = e.Top & "," & e.Left & "," & e.Width & "," & e.Height & "," & e.Font.Size
Next
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'發生在當使用者按了滑鼠鍵時。MouseDown 發生於使用者按下滑鼠鍵****
Dim xZoom As Double
If Shift = 2 Then 'Ctrl 鍵
Select Case Button '滑鼠
Case 1 '按下左滑鼠鍵。: 放大
xZoom = 1.2 '放大 %2
Case 2 '按下右滑鼠鍵。: 縮小
xZoom = 0.8 '所小 %2
End Select
Zoom_UserForm xZoom '表單縮放程式
ElseIf Shift = 1 Then 'Shift 鍵 +任一滑鼠按鍵
Revert_UserForm '表單還原原本大小
End If
End Sub
Private Sub Zoom_UserForm(xZoom As Double) '表單縮放
Width = Width * xZoom
Height = Height * xZoom
For Each e In Controls
With e
.Top = .Top * xZoom
.Left = .Left * xZoom
.Width = .Width * xZoom
.Height = .Height * xZoom
.Font.Size = .Font.Size * xZoom
End With
Next
End Sub
Private Sub Revert_UserForm() '表單還原原本大小
Dim xTag As Variant
Width = X
Height = Y
For Each e In Me.Controls
With e
xTag = Split(.Tag, ",")
.Top = xTag(0)
.Left = xTag(1)
.Width = xTag(2)
.Height = xTag(3)
.Font.Size = xTag(4)
End With
Next
End Sub