国产PPT格式控件Spire.Presentation功能演示：替换 PPT 中的视频、音频文件

Spire.Presentation for .NET 是专业的 PowerPoint组件，开发者可以在 .NET 平台上对 PPT文档进行生成、修改、转换和打印等操作，而无需安装 Microsoft PowerPoint。

这么优秀的国产工具怎能错过呢！想要获取更多福利的朋友咨询在线客服哦~

C#

using Spire.Presentation;using Spire.Presentation.Collections;using Spire.Presentation.Drawing;using System.Drawing;using System.IO;namespace ReplaceVideo{    class Program    {        static void Main(string[] args)        {            //加载PPT文档            Presentation ppt = new Presentation();            ppt.LoadFromFile("test.pptx");            //获取视频、音频文件集合            VideoCollection videos = ppt.Videos;            WavAudioCollection audios = ppt.WavAudios;            //遍历所有幻灯片            foreach (ISlide slide in ppt.Slides)            {                //遍历幻灯片中的所有形状                foreach (Shape shape in slide.Shapes)                {                    //替换视频文件                    if (shape is IVideo)                    {                        IVideo video = shape as IVideo;                        byte[] bts = File.ReadAllBytes("newVideo.mp4");                        VideoData videoData = videos.Append(bts);                        video.EmbeddedVideoData = videoData;                         Image image = Image.FromFile("jds.png");//加载图片                        IImageData coverImage = ppt.Images.Append(image);                        video.EmbedImage = coverImage;//设置视频封面图片                    }                    //替换音频文件                    if(shape is IAudio)                    {                        IAudio audio = shape as IAudio;                        byte[] bts1 = File.ReadAllBytes("newAudio.mp3");                        IAudioData audiodata = audios.Append(bts1);                        audio.Data = audiodata;                        audio.Fill.SolidColor.Color = Color.GreenYellow;                    }                }            }            //保存文档            ppt.SaveToFile("result.pptx", FileFormat.Pptx2013);            System.Diagnostics.Process.Start("result.pptx");        }    }}

VB.NET

Imports Spire.PresentationImports Spire.Presentation.CollectionsImports Spire.Presentation.DrawingImports System.DrawingImports System.IONamespace ReplaceVideoClass ProgramPrivate Shared Sub Main(args As String())'加载PPT文档Dim ppt As New Presentation()ppt.LoadFromFile("test.pptx")'获取视频、音频文件集合Dim videos As VideoCollection = ppt.VideosDim audios As WavAudioCollection = ppt.WavAudios'遍历所有幻灯片For Each slide As ISlide In ppt.Slides'遍历幻灯片中的所有形状For Each shape As Shape In slide.Shapes'替换视频文件If TypeOf shape Is IVideo ThenDim video As IVideo = TryCast(shape, IVideo)Dim bts As Byte() = File.ReadAllBytes("newVideo.mp4")Dim videoData As VideoData = videos.Append(bts)video.EmbeddedVideoData = videoDataDim image__1 As Image = Image.FromFile("jds.png")'加载图片Dim coverImage As IImageData = ppt.Images.Append(image__1)'设置视频封面图片video.EmbedImage = coverImageEnd If'替换音频文件If TypeOf shape Is IAudio ThenDim audio As IAudio = TryCast(shape, IAudio)Dim bts1 As Byte() = File.ReadAllBytes("newAudio.mp3")Dim audiodata As IAudioData = audios.Append(bts1)audio.Data = audiodataaudio.Fill.SolidColor.Color = Color.GreenYellowEnd IfNextNext'保存文档ppt.SaveToFile("result.pptx", FileFormat.Pptx2013)System.Diagnostics.Process.Start("result.pptx")End SubEnd ClassEnd Namespace

替换效果：