欢迎光临
我的个人博客网站

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

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

程序运行环境如下:

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

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

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

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 自定义动画路径

 

原创内容,转载务必注明出处!

 

赞(0) 打赏
未经允许不得转载:张拓的天空 » C#/VB.NET 自定义动画路径
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

专业的IT技术经验分享 更专业 更方便

联系我们本站主机

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏