A01021 - 改变 Excel 的显示位置 - P10

admin

1. Public Sub 技巧1_021()
   
2.     Dim myWState As Long, myTop As Double, myLeft As Double
   , K9 n0 s6 m6 T6 Z3 h6 r
3.     With Application
   
4.         myWState = .WindowState     '获取当前的窗口状态
   ! O# U; {9 g5 j$ o6 ^0 {
5.         .WindowState = xlNormal     '将窗口设置为一般显示
   / G" E0 I' U- f
6.         myTop = .Top       '获取当前窗口的顶部位置
   
7.         myLeft = .Left     '获取当前窗口的左侧位置
   
8.         .Top = 50         '设定窗口的顶部位置
   & j' z1 I5 C1 l3 K. n
9.         .Left = 100       '设定窗口的左侧位置
   7 K. r( \3 i) t2 Y0 U
10.         If MsgBox("Excel窗口的显示位置已经改变!" & vbCrLf _
    6 |* w+ X9 ^0 \
11.             & "要恢复为原来的状态吗?", vbQuestion + vbYesNo) = vbYes Then
    # m+ v- \1 p1 F. P% @8 n' P* a
12.             .Top = myTop        '恢复窗口的顶部位置
    - V2 t8 k/ l6 b, \5 j( J) j
13.             .Left = myLeft      '恢复窗口的左侧位置
    " s8 |7 R2 F. A+ u- p% r
14.             .WindowState = myWState     '恢复窗口的显示状态
    
15.         End If
    + [* H* O4 R4 v( g6 @; A
16.     End With
    6 m9 \7 D4 h; [0 ~/ K
17. End Sub

复制代码