A01020 - 改变 Excel 窗口大小 - P10

admin

1. Public Sub 技巧1_020()
   
2.     Dim myWState As Long, myWidth As Double, myHeight As Double
   - M3 f9 N# Y: A. u& L, t! Z# P; S  q
3.     With Application
   
4.         myWState = .WindowState     '获取当前的窗口状态
   
5.         .WindowState = xlNormal     '将窗口设置为一般显示
   % H/ B6 A4 S: B
6.         myWidth = .Width       '获取当前窗口的宽度
   
7.         myHeight = .Height     '获取当前窗口的高度
   " e' q/ ?& y, v$ V& ~& K& N3 H! M
8.         .Width = 500        '设定窗口的宽度
   ! s. ?1 a% x; ^, e# P' c9 \1 ^
9.         .Height = 300       '设定窗口的高度
   2 K: B7 a: A& B4 E" M$ U6 y
10.         If MsgBox("Excel窗口已经改变!" & vbCrLf & "要恢复为原来的状态吗?", _
    
11.             vbQuestion + vbYesNo) = vbNo Then Exit Sub
    
12.         .Width = myWidth        '恢复窗口的宽度
    
13.         .Height = myHeight      '恢复窗口的高度
    + g5 `& D0 u  V8 t9 s. ?) w( \1 I
14.         .WindowState = myWState     '恢复窗口的显示状态
    . v# C" z3 x, n4 b
15.     End With
    ) A4 `3 c! X3 Z0 ]; O# s
16. End Sub

复制代码