A01032 - 显示/隐藏任务窗格 - P18

admin · 发表于 2019-3-20 09:10:07

您需要登录才可以下载或查看，没有账号？注册

x

Public Sub 技巧1_032(), }) s, | p% u& i. c
'隐藏任务窗格5 J: m" K$ F. t7 c$ A& E5 ^* n
If Application.CommandBars("Task Pane").Visible = True Then5 K3 c, x& @+ ^' J! ^0 K
Application.CommandBars("Task Pane").Visible = False. V; ]. y" H( ?7 i
End If' T; j4 c; I" D& v( x* u5 a
If MsgBox("任务窗格被隐藏!" & vbCrLf & "是否重新显示任务窗格?", _
: P8 K) v* J& M7 u, v
vbQuestion + vbYesNo) = vbNo Then Exit Sub, d( I, o8 i1 V# Z
'显示任务窗格1 u# z5 f$ k: ]1 B: S% p! X' [
If Application.CommandBars("Task Pane").Visible = False Then
6 Q4 p @$ o3 F, w; ?/ @
Application.CommandBars("Task Pane").Visible = True
& K, @1 U6 z w/ t& o: l- W
End If* f" x& A9 r' t* W% P
End Sub

复制代码

		自动登录	找回密码
密码			注册

[VBA精品课] A01032 - 显示/隐藏任务窗格 - P18