excel顶层显示 

 1 'Update 20140909
 2 #If Win64 Then
 3 Public Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal HWND As LongPtr, ByVal hwndinsertafter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflags As Long) As Long
 4 #Else
 5 Public Declare Function Setwindowpos Lib" user32"(Byval hwnd As Long,Byval hwndinsertafter As Long,Byval x As Long, Byval y As Long,Byval Cx As Long, Byval cy As Long,Byval wflags As Long)As Long
 6 #End If
 7 Public Const SWP_NOSIZE = &H1
 8 Public Const SWP_NOMOVE = &H2
 9 Public Const HWND_TOPMOST = -1
10 Public Const HWND_NOTOPMOST = -2
11 Sub ShowXLOnTop(ByVal OnTop As Boolean)
12 Dim xStype As Long
13 #If Win64 Then
14 Dim xHwnd As LongPtr
15 #Else
16 Dim xHwnd As Long
17 #End If
18 If OnTop Then
19 xStype = HWND_TOPMOST
20 Else
21 xStype = HWND_NOTOPMOST
22 End If
23 Call SetWindowPos(Application.HWND, xStype, O, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
24 End Sub
25 Sub SetXLonTop()
26 ShowXLOnTop True
27 End Sub
28 Sub SetXLNormal()
29 ShowXLOnTop False
30 End Sub

再宏中选择置顶与否

posted @ 2021-12-27 15:37  color_bar  阅读(65)  评论(0)    收藏  举报