在创建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