delphi中操作PowerPoint幻灯片的示例代码

在Delphi中处理PowerPoint幻灯片的示例代码。

使用单位

uses System.Win.ComObj;

声明变量

var

PowerPoint: OLEVariant;

操作PowerPoint幻灯片

PowerPoint连接到

PowerPoint := CreateOleObject('PowerPoint.Application');

开始幻灯片放映

PowerPoint.ActivePresentation.SlideShowSettings.Run;

显示下一张幻灯片

PowerPoint.ActivePresentation.SlideShowWindow.View.Next;

显示上一张幻灯片

PowerPoint.ActivePresentation.SlideShowWindow.View.Previous;

显示第一张幻灯片

PowerPoint.ActivePresentation.SlideShowWindow.View.First;

显示最后一张幻灯片

PowerPoint.ActivePresentation.SlideShowWindow.View.Last;

推荐分享