PowerPoint文档（幻灯片）是一种常见的演示文档，给幻灯片添加切换效果，可以使幻灯片演示时生动，有趣。本文将介绍如何通过编程的方式添加和获取幻灯片切换效果。

添加幻灯片切换效果：

//创建ppt对象
Presentation ppt = new Presentation();
//加载文件
ppt.LoadFromFile(@"Input.pptx");
//获取第一张幻灯片
ISlide slide = ppt.Slides[0];
//设置切换类型
slide.SlideShowTransition.Type = TransitionType.Flythrough;
//设置切换声音模式
slide.SlideShowTransition.SoundMode = TransitionSoundMode.StopPrevoiusSound;
//设置持续时间
slide.SlideShowTransition.Duration = 2000;
//设置效果选项
slide.SlideShowTransition.Option = TransitionFlythroughInOutDirection.Out;
//保存文件
ppt.SaveToFile("Transition.pptx", FileFormat.Pptx2010);

'创建ppt对象
Dim ppt As New Presentation()
'加载文件
ppt.LoadFromFile("Input.pptx")
'获取第一张幻灯片
Dim slide As ISlide = ppt.Slides(0)
'设置切换类型
slide.SlideShowTransition.Type = TransitionType.Flythrough
'设置切换声音模式
slide.SlideShowTransition.SoundMode = TransitionSoundMode.StopPrevoiusSound
'设置持续时间
slide.SlideShowTransition.Duration = 2000
'设置效果选项
slide.SlideShowTransition.[Option] = TransitionFlythroughInOutDirection.Out
'保存文件
ppt.SaveToFile("Transition.pptx", FileFormat.Pptx2010)

效果动图：

获取幻灯片切换设置：

//创建一个list收集获取的结果
List results = new List();
//创建ppt对象
Presentation ppt = new Presentation();
//加载之前的结果文件
ppt.LoadFromFile("Transition.pptx");
//获取第一张幻灯片
ISlide slide = ppt.Slides[0];
//获取类型
TransitionType type = slide.SlideShowTransition.Type;
results.Add(type.ToString());            
//获取声音模式
TransitionSoundMode mode = slide.SlideShowTransition.SoundMode;
results.Add(mode.ToString());
//获取切换持续时间
uint value = slide.SlideShowTransition.Duration;
results.Add(value.ToString());
//获取效果选项
object effect = slide.SlideShowTransition.Option;
results.Add(effect.ToString());

'创建一个list收集获取的结果
Dim results As New List()
'创建ppt对象
Dim ppt As New Presentation()
'加载之前的结果文件
ppt.LoadFromFile("Transition.pptx")
'获取第一张幻灯片
Dim slide As ISlide = ppt.Slides(0)
'获取类型
Dim type As TransitionType = slide.SlideShowTransition.Type
results.Add(type.ToString())
'获取声音模式
Dim mode As TransitionSoundMode = slide.SlideShowTransition.SoundMode
results.Add(mode.ToString())
'获取切换持续时间
Dim value As UInteger = slide.SlideShowTransition.Duration
results.Add(value.ToString())
'获取效果选项
Dim effect As Object = slide.SlideShowTransition.[Option]
results.Add(effect.ToString())

结果截图：