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

冷不防 2023-01-19 04:55 8阅读 0赞

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

**程序运行环境如下：**

*  .Net Framework 4.8
 *  Visual Studio
 *  Spire.Presentation.dll [6.4.5][]

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

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70][]

**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

动画效果：

![20210508101804302.gif][]

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

[6.4.5]: https://www.e-iceblue.cn/Downloads/Spire-Presentation-NET.html
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70]: /images/20221021/06811862be23477e859eb0687d62fc97.png
[20210508101804302.gif]: /images/20221021/75e5a5806e7947cea950e7542c807f7d.png