我正在开发的宾果应用程序在powerpoint与一个声音(宾果画)连接到一个物体在ppt。宾果随机数生成器也连接到相同的对象,因此,随机数生成器必须暂停7秒,直到播放完声音。不幸的是,我的带有pause的代码不再显示新生成的数字,而没有pause,它就可以工作了。oSh.TextFrame.TextRange.Text = CStr(Random(X))'Now force PP
Var ppt:_Application,pres:_Presentation; ppt := GetActiveOleObject('PowerPoint.Application') as _Application; ppt := CreateOleObject('PowerPoint.Application') as _Application;
p