で[WSH]ObjectModelをつかう。
Sub movenext() '参照の追加で、COMの「Windows Script Host Object Model」を追加 Dim wshshell As IWshRuntimeLibrary.WshShellClass = _ New IWshRuntimeLibrary.WshShellClass wshshell.AppActivate("PowerPoint", True) wshshell.SendKeys("{RIGHT}", True) End Sub