Var ppt:_Application,pres:_Presentation; ppt := GetActiveOleObject('PowerPoint.Application') as _Application; ppt := CreateOleObject('PowerPoint.Application') as _Application;
p
我想拍摄一段视频并使用VBA将其存储在文件夹中(该视频是使用INSERT-> video ->Video on my PC插入的)。在.pptx和.pptm扩展演示文稿中,我可以添加.zip扩展来将其转换为zip文件,并提取其中的内容,包括视频(视频存储在ppt/media文件夹中)。在ppt文件中,如果我放入.zip扩展名,我无法提取内容。我尝试的另一件事是将其保存为pptx文件,并添加扩展名.zip。就像这样,我可以提取内容,但视频不在那里。