VBA 触发 'ctrl'+'r'

Question

我正在尝试在 PowerPoint 中以 15 秒的间隔触发 ctrl+r 键。谁能帮我看一下代码吗？

我可以使用这个代码吗？我如何添加 funkction 来触发 ctrl 和 r

Sub RunOnTime()
    dTime = Now + TimeSerial(0, 0, 15)
    Application.OnTime dTime, "RunOnTime"    
End Sub

Sub CancelOnTime()
    Application.OnTime dTime, "RunOnTime", , False
End Sub

获取有关 vba 编码的任何帮助

Answer 1

SendKeys 语句的使用具有以下限制：

• SendKeys 将字符发送到活动窗口。
• 代码中不能使用Stop或断点。
• 出于这些原因，请在功能区上创建一个按钮来启动 Sub，或插入正在运行的模块中。

将这些插入代码中

SendKeys "^r"