自动保存

朱付安 · 发表于 2023-1-27 18:10

请教老师，在ppt中，使用VBA，每隔一分钟自动保存文档，求代码，谢谢

天堑小舟 · 发表于 2023-1-28 10:32

PPT选项里，保存。里面有这个功能也。
一定要用VBA完成吗。

朱付安 · 发表于 2023-1-28 11:03

本帖最后由朱付安于 2023-1-28 11:09 编辑

谢谢老师，还是用VBA吧，我用excel代码用在ppt里，无法运行

朱付安 · 发表于 2023-1-28 11:10

天堑小舟发表于 2023-1-28 10:32
PPT选项里，保存。里面有这个功能也。
一定要用VBA完成吗。

谢谢老师，还是用VBA吧，我用excel代码用在ppt里，无法运行

shenjianrong163 · 发表于 2023-1-29 23:02

#If VBA7 Or Win64 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#Else
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
Dim NewTime, ss As Long
Sub Start()
NewTime = Now
SetTimer 0, 0, 1000, AddressOf SavePPT
End Sub
Sub StopSave()
KillTimer 0, 0
End Sub
Sub SavePPT()
ss = DateDiff("s", NewTime, Now)
If ss Mod 60 = 0 Then
ActivePresentation.Save
End If
End Sub

复制代码

朱付安 · 发表于 2023-1-30 17:16

shenjianrong163 发表于 2023-1-29 23:02

十分感谢老师的帮助

朱付安 · 发表于 2023-1-30 17:29

shenjianrong163 发表于 2023-1-29 23:02

老师，出现了这个

shenjianrong163 · 发表于 2023-1-31 22:18

朱付安发表于 2023-1-30 17:29
老师，出现了这个

你运行的是Start()吗？

朱付安 · 发表于 2023-2-1 20:22

shenjianrong163 发表于 2023-1-31 22:18
你运行的是Start()吗？

谢谢老师，可以运行了

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

[求助] 自动保存