Spire.Presentation for .NET 是專業的 PowerPoint組件，開發者可以在 .NET 平臺上對 PPT文檔進行生成、修改、轉換和打印等操作，而無需安裝 Microsoft PowerPoint。

本文介紹使用Spire.Presentation for .NET來替換PPT已插入的視頻、音頻文件，在替換原有視頻、音頻文件時，可設置替換原有視頻封面、音頻形狀顏色等?？?a target="_blank">點擊此處下載最新版測試。

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.Presentation
Imports Spire.Presentation.Collections
Imports Spire.Presentation.Drawing
Imports System.Drawing
Imports System.IO

Namespace ReplaceVideo
	Class Program
		Private Shared Sub Main(args As String())
			'加載PPT文檔
			Dim ppt As New Presentation()
			ppt.LoadFromFile("test.pptx")

			'獲取視頻、音頻文件集合
			Dim videos As VideoCollection = ppt.Videos
			Dim 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 Then
						Dim video As IVideo = TryCast(shape, IVideo)
						Dim bts As Byte() = File.ReadAllBytes("newVideo.mp4")
						Dim videoData As VideoData = videos.Append(bts)
						video.EmbeddedVideoData = videoData
						Dim image__1 As Image = Image.FromFile("jds.png")
						'加載圖片
						Dim coverImage As IImageData = ppt.Images.Append(image__1)
							'設置視頻封面圖片
						video.EmbedImage = coverImage
					End If

					'替換音頻文件
					If TypeOf shape Is IAudio Then
						Dim audio As IAudio = TryCast(shape, IAudio)
						Dim bts1 As Byte() = File.ReadAllBytes("newAudio.mp3")
						Dim audiodata As IAudioData = audios.Append(bts1)
						audio.Data = audiodata
						audio.Fill.SolidColor.Color = Color.GreenYellow
					End If
				Next
			Next

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

替換效果：