PowerPoint文档（幻灯片）是一种常见的演示文档，如果能给形状添加动画，演示时就显得生动，有趣。本文将介绍如何通过编程的方式给PowerPoint文档里的形状添加动画，获取动画。

添加动画

//创建一个ppt对象
Presentation ppt = new Presentation();
//获取第一张幻灯片
ISlide slide = ppt.Slides[0];
//添加一个形状，设置填充色颜色，添加文本
IAutoShape shape = slide.Shapes.AppendShape(ShapeType.Rectangle, new RectangleF(50, 50, 200, 80));
shape.Fill.FillType = FillFormatType.Solid;
shape.Fill.SolidColor.Color = Color.LightBlue;
shape.ShapeStyle.LineColor.Color = Color.White;
shape.AppendTextFrame("Set Animation");
//给形状添加动画
AnimationEffect effect = shape.Slide.Timeline.MainSequence.AddEffect(shape, AnimationEffectType.FadedSwivel);
//设置持续时间
effect.Timing.Duration = 2;
//设置重复次数
effect.Timing.RepeatCount = 2;     
//设置动画文本效果
effect.IterateType = Spire.Presentation.Drawing.TimeLine.AnimateType.Letter;
//设置动画文本字符之间延迟时间
effect.IterateTimeValue = 2;
//保存文件
ppt.SaveToFile("SetAnimations.pptx", FileFormat.Pptx2010);

'创建一个ppt对象
Dim ppt As New Presentation()
'获取第一张幻灯片
Dim slide As ISlide = ppt.Slides(0)
'添加一个形状，设置填充色颜色，添加文本
Dim shape As IAutoShape = slide.Shapes.AppendShape(ShapeType.Rectangle, New RectangleF(50, 50, 200, 80))
shape.Fill.FillType = FillFormatType.Solid
shape.Fill.SolidColor.Color = Color.LightBlue
shape.ShapeStyle.LineColor.Color = Color.White
shape.AppendTextFrame("Set Animation")
'给形状添加动画
Dim effect As AnimationEffect = shape.Slide.Timeline.MainSequence.AddEffect(shape, AnimationEffectType.FadedSwivel)
'设置持续时间
effect.Timing.Duration = 2
'设置重复次数
effect.Timing.RepeatCount = 2
'设置动画文本效果
effect.IterateType = Spire.Presentation.Drawing.TimeLine.AnimateType.Letter
'设置动画文本字符之间延迟时间
effect.IterateTimeValue = 2
'保存文件
ppt.SaveToFile("SetAnimations.pptx", FileFormat.Pptx2010)

效果展示：

获取动画

StringBuilder sb = new StringBuilder();
//加载PPT文件
Presentation ppt = new Presentation("SetAnimations.pptx",FileFormat.Pptx2010);
ISlide slide = ppt.Slides[0];
//获取动画集合
AnimationEffectCollection animations = slide.Timeline.MainSequence;
//获取动画的效果
AnimationEffectType effectType = animations[0].AnimationEffectType;
sb.Append("Animation type:" + effectType.ToString() + "\r\n");
//获取动画持续时间
float duration = animations[0].Timing.Duration;
sb.Append("Duration:" + duration.ToString() + "\r\n");
//获取动画重复次数
float count = animations[0].Timing.RepeatCount;
sb.Append("Repeat count:" + count + "\r\n");
//获取动画文本效果
var IterateType = animations[0].IterateType;
sb.Append("Iterate type:" + IterateType.ToString() + "\r\n");
//保存结果
File.WriteAllText("result.txt", sb.ToString());

Dim sb As New StringBuilder()
'加载PPT文件
Dim ppt As New Presentation("SetAnimations.pptx", FileFormat.Pptx2010)
Dim slide As ISlide = ppt.Slides(0)
'获取动画集合
Dim animations As AnimationEffectCollection = slide.Timeline.MainSequence
'获取动画的效果
Dim effectType As AnimationEffectType = animations(0).AnimationEffectType
sb.Append("Animation type:" + effectType.ToString() + vbCr & vbLf)
'获取动画持续时间
Dim duration As Single = animations(0).Timing.Duration
sb.Append("Duration:" + duration.ToString() + vbCr & vbLf)
'获取动画重复次数
Dim count As Single = animations(0).Timing.RepeatCount
sb.Append("Repeat count:" + count + vbCr & vbLf)
'获取动画文本效果
Dim IterateType = animations(0).IterateType
sb.Append("Iterate type:" + IterateType.ToString() + vbCr & vbLf)
'保存结果
File.WriteAllText("result.txt", sb.ToString())

结果：