在创建PPT演示文档时，除添加文字和图片外，我们还可以插入视频到演示文档，使它变得更加形象生动。本文将介绍如何使用Spire.Presentation插入视频到PPT文档以及提取现有PPT文档中的视频。

插入视频

//加载PPT文档
Presentation ppt = new Presentation();
ppt.LoadFromFile("演示文稿.pptx");

//获取第一张幻灯片            
ISlide slide = ppt.Slides[0];
//插入视频到第一张幻灯片
slide.Shapes.AppendVideoMedia(@"视频.mp4", new RectangleF(300, 150, 300, 150));            

ppt.SaveToFile("插入视频.pptx", FileFormat.Pptx2010);

'加载PPT文档 Dim ppt As New Presentation() ppt.LoadFromFile("演示文稿.pptx") '获取第一张幻灯片            
Dim slide As ISlide = ppt.Slides(0)
'插入视频到第一张幻灯片 slide.Shapes.AppendVideoMedia("视频.mp4",New RectangleF(300,150,300,150)) ppt.SaveToFile("插入视频.pptx",FileFormat.Pptx2010)

提取视频

//加载PPT文档 Presentation ppt = new Presentation();ppt.LoadFromFile(@"插入视频.pptx");int i = 0;//遍历文档中的幻灯片 foreach (ISlide slide in ppt.Slides){//遍历幻灯片中的形状 foreach (IShape shape in slide.Shapes){//判断形状是否为视频 if (shape is IVideo){//将视频保存到本地文件夹 (shape as IVideo).EmbeddedVideoData.SaveToFile(string.Format(@"视频\视频{0}.mp4",i));i++;}}}

'加载PPT文档
Dim ppt As New Presentation()
ppt.LoadFromFile("插入视频.pptx")
Dim i As Integer = 0
'遍历文档中的幻灯片 For Each slide As ISlide In ppt.Slides '遍历幻灯片中的形状
	For Each shape As IShape In slide.Shapes
		'判断形状是否为视频 If TypeOf shape Is IVideo Then '将视频保存到本地文件夹
			TryCast(shape, IVideo).EmbeddedVideoData.SaveToFile(String.Format("视频\视频{0}.mp4", i))
			i += 1
		End If
	Next
Next