在ppt vba中怎样关闭屏幕刷新

shenjianrong163 · 发表于 2020-2-2 20:06

本帖最后由 shenjianrong163 于 2020-2-2 23:15 编辑

ppt vba和excel vba有的地方不一样，Application.Screenupdating=False在excel vba中能用，在ppt vba中就出错了。请问ppt vba中该怎样写代码?谢谢！

lss001 · 发表于 2020-8-16 15:22

本帖最后由 lss001 于 2020-8-20 22:14 编辑

1111111111111111

lss001 · 发表于 2021-7-14 11:39

本帖最后由 lss001 于 2021-7-14 13:15 编辑

/////////////////////

lss001 · 发表于 2021-7-14 11:40

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Const WM_SETREDRAW = &HB
Sub SETREDRAW()
hwnd = GetForegroundWindow
SendMessage hwnd, WM_SETREDRAW, False, 0 '关闭刷新

'**********

SendMessage hwnd, WM_SETREDRAW, True, 0 '打开刷新
End Sub

shenjianrong163 · 发表于 2021-7-22 10:52

lss001 发表于 2021-7-14 11:40
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, B ...

谢谢lss001老师的帮助！

hsyizhong · 发表于 2023-3-24 21:49

lss001 发表于 2021-7-14 11:40
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, B ...

这段代码用在64位机器提示需要修改，请问大神，该如何修改啊。

mmwwdd · 发表于 2023-3-25 04:26

With Application
.WindowState = ppWindowMinimized
.Visible = True
.DisplayAlerts = False
.ScreenUpdating = False
End With

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

[求助] 在ppt vba中怎样关闭屏幕刷新