在创建PPT演示文档时,除添加文字和图片外,我们还可以插入视频到演示文档,使它变得更加形象生动。本文将介绍如何使用Spire.Presentation插入视频到PPT文档以及提取现有PPT文档中的视频。
插入视频
C#
//加载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);
VB.NET
'加载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)
提取视频
C#
//加载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++;
}
}
}
VB.NET
'加载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