vb ole 播放ppt 自动播放 ,求解!!

发布网友发布时间：2022-05-05 22:57

共2个回答

热心网友时间：2022-06-28 06:31

使用ShellExecute函数：

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
调用方法如下：
ShellExecute 0&, vbNullString, App.Path & ThisLibPath & "\时间事件.ppt", vbNullString, vbNullString, VbNormalFocus

热心网友时间：2022-06-28 06:31

vb获取ppt对象即可控制对于office2003使用getobject或createobject（〃powerpoint.Application〃）赋予变量，就可以操作ppt中的对象和方法。具体代码搜索ppt vba追问2007或者2010呢？求解！！有demo吗

追答没用过高版本的，可以把幻灯文件保存为pps（放映）类型，软件打开后就会自动进入播放状态，要实现持续播放可以用一定时器函数sendkeys发送方向键下或右就可以了，或者直接编辑幻灯文件，插入动画，隔一段时间自己翻页也行。