PPT中的动画效果可分为已有内置动画以及自定义动画。设置内置动画，只需直接指定动画效果类型即可。本文主要介绍如何实现自定义动画，即自定义形状动作线性路径。附C#及VB.NET代码供参考。

程序运行环境如下：

  • .Net Framework 4.8
  • Visual Studio
  • Spire.Presentation.dll ​​6.4.5​​

所需引用的必要程序集文件如下图：

C#/VB.NET 自定义PPT动画路径_自定义动画

C#

using Spire.Presentation;
using Spire.Presentation.Collections;
using Spire.Presentation.Drawing.Animation;
using System.Drawing;

namespace CustomAnimation
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建一个幻灯片文档(新建的文档已默认包含一页幻灯片）
            Presentation ppt = new Presentation();
            ISlide slide = ppt.Slides[0];//获取第一页空白幻灯片

            //添加形状（指定形状坐标、大小及相关格式设置）
            IAutoShape shape = slide.Shapes.AppendShape(ShapeType.FivePointedStar, new RectangleF(100, 50, 180, 180));
            shape.Fill.FillType = Spire.Presentation.Drawing.FillFormatType.Gradient;
            shape.Fill.Gradient.GradientStops.Append(0, KnownColors.SkyBlue);
            shape.Fill.Gradient.GradientStops.Append(1, KnownColors.Pink);
            shape.ShapeStyle.LineColor.Color = Color.White;

            //给形状设置动画效果
            AnimationEffect effect = ppt.Slides[0].Timeline.MainSequence.AddEffect(shape, AnimationEffectType.PathUser);
            CommonBehaviorCollection common = effect.CommonBehaviorCollection;
            AnimationMotion motion = (AnimationMotion)common[0];
            motion.Origin = AnimationMotionOrigin.Layout;
            motion.PathEditMode = AnimationMotionPathEditMode.Relative;
            MotionPath moinPath = new MotionPath();
            moinPath.Add(MotionCommandPathType.MoveTo, new PointF[] { new PointF(0, 0) }, MotionPathPointsType.CurveAuto, true);
            moinPath.Add(MotionCommandPathType.LineTo, new PointF[] { new PointF(0.18f, 0.18f) }, MotionPathPointsType.CurveAuto, true);
            moinPath.Add(MotionCommandPathType.LineTo, new PointF[] { new PointF(-0.1f, 0.2f) }, MotionPathPointsType.CurveAuto, true);
            moinPath.Add(MotionCommandPathType.LineTo, new PointF[] { new PointF(0.25f, 0.2f) }, MotionPathPointsType.CurveAuto, true);
            moinPath.Add(MotionCommandPathType.End, new PointF[] { }, MotionPathPointsType.CurveStraight, true);
            motion.Path = moinPath;

            //保存文档
            ppt.SaveToFile("CustomAnimation.pptx", FileFormat.Pptx2013);
            System.Diagnostics.Process.Start("CustomAnimation.pptx");
        }
    }
}

 

vb.net

Imports Spire.Presentation
Imports Spire.Presentation.Collections
Imports Spire.Presentation.Drawing.Animation
Imports System.Drawing

Namespace CustomAnimation
  Class Program
    Private Shared Sub Main(args As String())
      '创建一个幻灯片文档(新建的文档已默认包含一页幻灯片）
      Dim ppt As New Presentation()

            '获取第一页空白幻灯片
      Dim slide As ISlide = ppt.Slides(0)
      
      '添加形状（指定形状坐标、大小及相关格式设置）
      Dim shape As IAutoShape = slide.Shapes.AppendShape(ShapeType.FivePointedStar, New RectangleF(100, 50, 180, 180))
      shape.Fill.FillType = Spire.Presentation.Drawing.FillFormatType.Gradient
      shape.Fill.Gradient.GradientStops.Append(0, KnownColors.SkyBlue)
      shape.Fill.Gradient.GradientStops.Append(1, KnownColors.Pink)
      shape.ShapeStyle.LineColor.Color = Color.White

      '给形状设置动画效果
      Dim effect As AnimationEffect = ppt.Slides(0).Timeline.MainSequence.AddEffect(shape, AnimationEffectType.PathUser)
      Dim common As CommonBehaviorCollection = effect.CommonBehaviorCollection
      Dim motion As AnimationMotion = DirectCast(common(0), AnimationMotion)
      motion.Origin = AnimationMotionOrigin.Layout
      motion.PathEditMode = AnimationMotionPathEditMode.Relative
      Dim moinPath As New MotionPath()
      moinPath.Add(MotionCommandPathType.MoveTo, New PointF() {New PointF(0, 0)}, MotionPathPointsType.CurveAuto, True)
      moinPath.Add(MotionCommandPathType.LineTo, New PointF() {New PointF(0.18F, 0.18F)}, MotionPathPointsType.CurveAuto, True)
      moinPath.Add(MotionCommandPathType.LineTo, New PointF() {New PointF(-0.1F, 0.2F)}, MotionPathPointsType.CurveAuto, True)
      moinPath.Add(MotionCommandPathType.LineTo, New PointF() {New PointF(0.25F, 0.2F)}, MotionPathPointsType.CurveAuto, True)
      moinPath.Add(MotionCommandPathType.[End], New PointF() {}, MotionPathPointsType.CurveStraight, True)
      motion.Path = moinPath

      '保存文档
      ppt.SaveToFile("CustomAnimation.pptx", FileFormat.Pptx2013)
      System.Diagnostics.Process.Start("CustomAnimation.pptx")
    End Sub
  End Class
End Namespace

动画效果：

C#/VB.NET 自定义PPT动画路径_c#_02

 

原创内容，转载务必注明出处！