如何通过C#/VB.NET从PowerPoint文档中提取图片

姑苏焱

PowerPoint是用于制作幻灯片（演示文稿）的应用软件，每张幻灯片中都可以包含文字、图形、图形、表格、声音和影像等多种信息。有时候我们发现在PPT里面有一些精美的图片，或者其他原因想要把PPT里面的图片保存下来。但如果PowerPoint文档中包含大量图片，一张张保存未免太费时间及精力。那有什么办法可以高效便捷地提取出PPT中的图片呢？在这篇文章中，您将学习如何以编程方式从PowerPoint文档中提取图片。下面是我整理的步骤及方法，并附上C#/VB.NET代码供大家参考。

• 从整个演示文稿中提取图像
  
• 从特定演示幻灯片中提取图像
  

程序环境：

本次测试时，在程序中引入 Free Spire.Presentation.dll 文件。
方法1：
将​Free Spire.Presentation for .NET​​下载到本地，解压，找到 BIN 文件夹下的 Spire.Presentation.dll。然后在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径 BIN 文件夹下的 dll 文件添加引用至程序。
方法2：:
通过 ​NuGet​​安装。可通过以下 2 种方法安装：
  1. 可以在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理 NuGet 包”，然后搜索“Free Spire.Presentation”，点击“安装”。等待程序安装完成。
  2. 将以下内容复制到 PM 控制台安装。
Install-Package FreeSpire.Presentation -Version 7.8
从整个演示文稿中提取图像

• 初始化 Presentation 类的一个实例。
  
• 使用 Presentation.LoadFromFile() 方法加载 PowerPoint 演示文稿。
  
• 通过 Presentation.Images 属性获取演示文稿中所有图片的集合。
  
• 遍历集合，调用ImageCollection[int].Image.Save()方法将集合中的图片保存到图片文件中。
  

完整代码

C#

1. using Spire.Presentation;
2. using Spire.Presentation.Collections;
3. using System.Drawing;
5. namespace ExtractImagesFromPresentation
6. {
7.     internal class Program
8.     {
9.         static void Main(string[] args)
10.         {
11.             //初始化Presentation类的实例
12.             Presentation ppt = new Presentation();
14.             //加载PowerPoint演示文稿
15.             ppt.LoadFromFile("示例文档.pptx");
17.             //获取演示文稿的图像集
18.             ImageCollection imageCollection = ppt.Images;
20.             //遍历集合中的图像
21.             for (int i = 0; i < imageCollection.Count; i++)
22.             {
23.                 //提取图像
24.                 imageCollection[i].Image.Save(string.Format("Presentation\\图片{0}.png", i));
25.             }
27.             ppt.Dispose();
28.         }
29.     }
30. }

复制代码

VB.NET

1. Imports Spire.Presentation
2. Imports Spire.Presentation.Collections
4. Namespace ExtractImagesFromPresentation
5.     Friend Class Program
6.         Private Shared Sub Main(ByVal args As String())
7.             '初始化Presentation类的实例
8.             Dim ppt As Presentation = New Presentation()
10.             '加载PowerPoint演示文稿
11.             ppt.LoadFromFile("示例文档.pptx")
13.             '获取演示文稿的图像集
14.             Dim imageCollection As ImageCollection = ppt.Images
16.             '遍历集合中的图像
17.             For i As Integer = 0 To imageCollection.Count - 1
18.                 '提取图像
19.                 imageCollection(i).Image.Save(String.Format("Presentation\图片{0}.png", i))
20.             Next
22.             ppt.Dispose()
23.         End Sub
24.     End Class
25. End Namespace

复制代码

效果图

从特定演示幻灯片中提取图像

• 初始化 Presentation 类的一个实例。
  
• 使用 Presentation.LoadFromFile() 方法加载 PowerPoint 演示文稿。
  
• 通过 Presentation.Slides[int] 属性按索引获取特定幻灯片。
  
• 遍历幻灯片上的所有形状。
  
• 检查形状是否为 SlidePicture 或 PictureShape 类型。 如果结果为真，则使用 SlidePicture.PictureFill.Picture.EmbedImage.Image.Save()或 PictureShape.EmbedImage.Image.Save() 方法将图像保存到图像文件。
  

完整代码

C#

1. using Spire.Presentation;
3. namespace ExtractImagesFromSlide
4. {
5.     internal class Program
6.     {
7.         static void Main(string[] args)
8.         {
9.             //初始化 Presentation 类的一个实例
10.             Presentation ppt = new Presentation();
11.             //加载 PowerPoint 演示文稿
12.             ppt.LoadFromFile("示例文档.pptx");
14.             //获取指定幻灯片
15.             ISlide slide = ppt.Slides[1];
17.             int i = 0;
18.             //遍历指定幻灯片上的所有形状
19.             foreach (IShape s in slide.Shapes)
20.             {
21.                 //检查形状是否为SlidePicture类型
22.                 if (s is SlidePicture)
23.                 {
24.                     //提取图像
25.                     SlidePicture ps = s as SlidePicture;
26.                     ps.PictureFill.Picture.EmbedImage.Image.Save(string.Format(@"D:\.NET\提取图片\bin\Debug\Slide\图像{0}.png", i));
27.                     i++;
28.                 }
29.                 //检查形状是否为 PictureShape 类型
30.                 if (s is PictureShape)
31.                 {
32.                     //提取图像
33.                     PictureShape ps = s as PictureShape;
34.                     ps.EmbedImage.Image.Save(string.Format(@"D:\.NET\提取图片\bin\Debug\Slide\图像{0}.png", i));
35.                     i++;
36.                 }
37.             }
38.         }
39.     }
40. }

复制代码

VB.NET

1. Imports Spire.Presentation
3. Namespace ExtractImagesFromSlide
4.     Friend Class Program
5.         Private Shared Sub Main(ByVal args As String())
6.             '初始化 Presentation 类的一个实例
7.             Dim ppt As Presentation = New Presentation()
8.             '加载 PowerPoint 演示文稿
9.             ppt.LoadFromFile("示例文档.pptx")
11.             '获取指定幻灯片
12.             Dim slide As ISlide = ppt.Slides(1)
14.             Dim i = 0
15.             '遍历指定幻灯片上的所有形状
16.             For Each s As IShape In slide.Shapes
17.                 '检查形状是否为SlidePicture类型
18.                 If TypeOf s Is SlidePicture Then
19.                     '提取图像
20.                     Dim ps As SlidePicture = TryCast(s, SlidePicture)
21.                     ps.PictureFill.Picture.EmbedImage.Image.Save(String.Format("D:\.NET\提取图片\bin\Debug\Slide\图像{0}.png", i))
22.                     i += 1
23.                 End If
24.                 '检查形状是否为 PictureShape 类型
25.                 If TypeOf s Is PictureShape Then
26.                     '提取图像
27.                     Dim ps As PictureShape = TryCast(s, PictureShape)
28.                     ps.EmbedImage.Image.Save(String.Format("D:\.NET\提取图片\bin\Debug\Slide\图像{0}.png", i))
29.                     i += 1
30.                 End If
31.             Next
32.         End Sub
33.     End Class
34. End Namespace

复制代码

效果图

—本文完—

来源:https://www.cnblogs.com/Carina-baby/archive/2023/03/13/17211465.html
免责声明：由于采集信息均来自互联网，如果侵犯了您的权益，请联系我们【E-Mail:cb@itdo.tech】 我们会及时删除侵权内容，谢谢合作！