怎么把excel表格里面的图片倒出来

要将Excel表格中的图片导出，有几种方法可供选择：手动复制粘贴、保存为网页、使用VBA代码、第三方工具。最常用和便捷的方法是手动复制粘贴，适用于少量图片的导出；而对于大量图片的导出，使用VBA代码则更为高效。

一、手动复制粘贴

手动复制粘贴是最直观的方法，适用于少量图片的导出。

1.1 复制图片

首先，打开Excel表格，找到要导出的图片。右键点击图片，选择“复制”选项。这将图片复制到剪贴板上。

1.2 粘贴到图像编辑软件

接下来，打开图像编辑软件，如Microsoft Paint、Photoshop等。新建一个文件，然后在该文件中粘贴图片。你可以通过按“Ctrl + V”快捷键来完成粘贴操作。

1.3 保存图片

最后，选择“文件”菜单中的“另存为”选项，将图片保存为你需要的格式，如JPEG、PNG等。这样，图片就成功导出了。

二、保存为网页

将Excel文件保存为网页，可以一次性导出所有图片。

2.1 保存文件为网页格式

打开Excel文件，选择“文件”菜单中的“另存为”选项。在保存类型中选择“网页(.htm;.html)”格式，然后点击“保存”。

2.2 查找图片文件夹

保存完成后，会生成一个HTML文件和一个文件夹，文件夹中包含了所有导出的图片。你可以根据需要将这些图片移动到其他位置进行管理和使用。

三、使用VBA代码

使用VBA代码可以批量导出Excel表格中的图片，适用于处理大量图片的场景。

3.1 打开Excel开发工具

首先，打开Excel表格，按“Alt + F11”打开VBA编辑器。然后，选择“插入”菜单中的“模块”选项，创建一个新的模块。

3.2 编写VBA代码

在新建的模块中，输入以下VBA代码：

Sub ExportPictures() Dim pic As Picture Dim ws As Worksheet Dim path As String Dim i As Integer path = "C:ExportedPictures" ' 修改为你想要保存图片的位置 If Dir(path, vbDirectory) = "" Then MkDir path End If i = 1 For Each ws In ThisWorkbook.Worksheets For Each pic In ws.Pictures pic.Copy With CreateObject("Word.Application") .Documents.Add.Content.Paste .ActiveDocument.SaveAs2 Filename:=path & "Image" & i & ".jpg", FileFormat:=17 .Quit End With i = i + 1 Next pic Next ws MsgBox "图片导出完成！" End Sub

3.3 运行代码

输入代码后，按“F5”键运行代码。代码运行完成后，图片会自动保存到指定的文件夹中。

四、第三方工具

使用第三方工具也是一种有效的方法，尤其适用于不熟悉VBA代码的用户。

4.1 下载第三方工具

首先，搜索并下载一个适用于图片导出的第三方工具，如“Excel Image Assistant”或“Kutools for Excel”。

4.2 安装并运行工具

按照提示安装第三方工具，然后在Excel中找到工具的插件选项。运行工具，并按照提示选择需要导出的图片和保存位置。

4.3 导出图片

工具会自动将图片导出到指定位置，用户只需要等待导出完成即可。

五、总结

将Excel表格中的图片导出有多种方法可供选择，包括手动复制粘贴、保存为网页、使用VBA代码和第三方工具。对于少量图片，手动复制粘贴是最便捷的方法；对于大量图片，使用VBA代码或第三方工具则更为高效。选择合适的方法可以大大提高工作效率。

六、附录：VBA代码详解

为了更好地理解VBA代码，我们可以对代码进行详细解释。

6.1 定义变量

Dim pic As Picture Dim ws As Worksheet Dim path As String Dim i As Integer

这段代码定义了四个变量：pic用于存储图片对象，ws用于存储工作表对象，path用于存储保存路径，i用于计数。

6.2 设置保存路径

path = "C:ExportedPictures" ' 修改为你想要保存图片的位置
If Dir(path, vbDirectory) = "" Then
    MkDir path
End If

这段代码设置了图片的保存路径，并检查路径是否存在。如果路径不存在，则创建该路径。

6.3 循环遍历工作表和图片

i = 1 For Each ws In ThisWorkbook.Worksheets For Each pic In ws.Pictures pic.Copy With CreateObject("Word.Application") .Documents.Add.Content.Paste .ActiveDocument.SaveAs2 Filename:=path & "Image" & i & ".jpg", FileFormat:=17 .Quit End With i = i + 1 Next pic Next ws

这段代码首先初始化计数器i，然后循环遍历所有工作表和图片对象。对于每个图片对象，复制并粘贴到Word文档中，然后保存为JPEG格式，最后关闭Word应用程序。

6.4 提示导出完成

MsgBox "图片导出完成！"

最后，代码弹出一个消息框，提示用户图片导出完成。

通过详细解释VBA代码，可以帮助用户更好地理解代码的工作原理，从而更加灵活地应用在实际操作中。

希望这篇文章对你在导出Excel表格中的图片时有所帮助。根据不同的需求选择合适的方法，可以提高工作效率，减少不必要的麻烦。