替换 PPT 中的视频、音频文件试试这款国产控件

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

本文介绍使用Spire.Presentation for .NET来替换PPT已插入的视频、音频文件，在替换原有视频、音频文件时，可设置替换原有视频封面、音频形状颜色等。可获取最新版测试。

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.Presentation
Imports Spire.Presentation.Collections
Imports Spire.Presentation.Drawing
Imports System.Drawing
Imports 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 Class
End Namespace

替换效果：

替换 PPT 中的视频、音频文件试试这款国产控件相关推荐

实现拖拽上传文件的一款小控件——dropzone
由于专注所以专业.非常多小巧的东西乍一看非常不起眼,却在特定的领域表现不俗,就是由于集中了热情. dropzone就是这样一款小控件,实现拖拽上传.它不依赖于其他像jquery等JS库.并且支持多方面 ...
[原创]使用python对视频/音频文件进行详细信息采集,并进行去重操作
[原创]使用python对视频/音频文件进行详细信息采集,并进行去重操作转载请注明出处一.关于为什么用pymediainfo以及pymediainfo的安装使用python对视频/音频文件进行详 ...
如何从PPT中提取视频、动画、音频、解说等
1. 将PPT文件的后缀名"*.ppt或*.pptx"更改为"*.rar": 2. 打开更改后的压缩文件,选择PPT文件夹,再选择Media文件夹: 3. ...
从mp4中提取wav音频文件
需求: 从mp4文件中提取wav音频文件运行效果: mp4: 运行后脚本后提取出的wav文件代码: import os.pathimport moviepy.editor as mpe# 导出格式 ...
字体在ppt中可以整体替换吗_如何批量替换PPT中的字体？
如何批量替换PPT中的字体? 时间:2016-06-03来源: 网络作者: 未知点击: 次 PPT制作技巧:如何批量替换PPT中的字体? 问题:如何批量替换PPT中的字体? 解答:其实PPT有专门的功 ...
如何在PPT中插入视频
转载者: 毕业答辩ppt模板下载搜索: 如何在PPT中插入视频为追求更完美效果,在Powerpoint中通过shockwave Flash Object控件插入SWF格式动画已是家常便饭.但很多情 ...
PPT中嵌入视频详细解说
PPT中嵌入视频详细解说本文摘自我的博客:http://www.gesangweb.com/266.htm 这几天事情冗多,昨天碰到的ppt插入对象自动保存不成功今天找到解决方案.王老师让我帮她嵌入 ...
一劳永逸解决PPT中声音视频的路径问题（转）
一劳永逸解决PPT中声音视频的路径问题(转) 参考文章: (1)一劳永逸解决PPT中声音视频的路径问题(转) (2)https://www.cnblogs.com/chenwenbiao/archiv ...
想在PPT中插入swf文件，但是在其他控件中找不到shockwave falsh object，怎么办？（win7）
经过我的一些探索之路,我终于发现了我的win7电脑的问题所在,没有安装Adobe flash player,如果有相同问题的同学可以继续往下看. 1.下载安装Adobe flash player 为了 ...

替换 PPT 中的视频、音频文件试试这款国产控件

替换 PPT 中的视频、音频文件试试这款国产控件相关推荐

最新文章

热门文章