你的Excel电脑打不开，教你解决问题的五种方法
244
2023-12-26
如何从Excel一次导出所有图像？
如何从Excel一次导出所有图像？
假设您的工作簿中有很多图片，并且想一次将它们保存到特定文件夹中，通常您可以手动将图片一张一张复制粘贴保存，但是复制粘贴很耗时反复这样。 在这里，我将向您介绍一些解决此工作的技巧。
使用“另存为”功能一次从Excel导出所有图像
使用出色的工具从 Excel 一次轻松导出所有图像
导出图像并使用相邻单元格值重命名它们
使用“另存为”功能一次从Excel导出所有图像
内置 Excel 另存为 功能，您可以将工作簿另存为 网页 将所有图片（包括图表、形状和其他对象）保存在文件夹中。 请执行以下操作。
1. 打开包含要保存的图片的工作簿。 点击 文件 > 另存为 > 浏览。
2.在 另存为 对话框，您需要：
2.1）选择一个文件夹来保存导出的图像；
2.2）选择 网页 从另存为类型下拉列表中；
2.3）点击 优惠 按钮。
3.在弹出 微软的Excel 对话框中，单击 是 按钮。
4.打开保存导出文件的文件夹，可以看到里面列出了一个文件夹和一个HTML格式的文件。 工作簿中的所有图片，包括图表、形状或对象都保存在此文件夹中。
5.可以将需要的图片保留在文件夹中，不需要的可以删除
使用出色的工具轻松从 Excel 一次导出所有图像上述方法将从工作簿中提取所有对象，也许其中一些您不需要。 如果你有 Kutools for Excel 安装在Excel中 导出图形 功能可以帮助您只保存您需要的图片。
安装后 Kutools for Excel，请执行以下操作：
1。 点击 Kutools 加 > 进出口 > 导出图形:
2.在 导出图形 对话框，请进行如下配置：
2.1）选择 图片 来自 类型 下拉列表;
提示： 默认情况下，列出当前工作簿中的所有图形，包括图表、图片和形状。
2.2）在 保存目录 部分，点击 按钮选择一个文件夹来保存您导出的图片；
2.3）在 导出格式 下拉列表，选择要导出为的图像类型；
2.4）点击 确定。
3.然后会弹出一个对话框告诉你已经成功导出了多少张图片，点击 OK 按钮。
现在您可以转到目标文件夹并检查导出的图像。
请点击 导出图形 进一步了解此功能。
申请前 Kutools for Excel请 首先下载并安装.
如下图所示，有两列，一列包含水果名称列表，另一列包含水果的相应图片。 要导出这些图像并使用相应的水果名称自动命名，您可以尝试本节中的 VBA 代码。
1. 在要导出图片的工作表中，按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下 VBA 复制到模块窗口中。
VBA代码：导出一列图片并自动命名
Sub ExportImages_ExtendOffice()
Updated by Extendoffice 20220308
Dim xStrPath As String
Dim xStrImgName As String
Dim xImg As Shape
Dim xObjChar As ChartObject
Dim xFD As FileDialog
Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
If xFD.Show = -1 Then
xStrPath = xFD.SelectedItems.Item(1) & "\"
Else
Exit Sub
End If
On Error Resume Next
For Each xImg In ActiveSheet.Shapes
If xImg.TopLeftCell.Column = 2 Then
xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
If xStrImgName <> "" Then
xImg.Select
Selection.Copy
Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
With xObjChar
.Border.LineStyle = xlLineStyleNone
.Activate
ActiveChart.Paste
.Chart.Export xStrPath & xStrImgName & ".png"
.Delete
End With
End If
End If
Next
End Sub
Copy
笔记：
1) 号码 2 在行“如果 xImg.TopLeftCell.Column = 2 那么” 表示要从中导出图片的列号；
2) 号码 -1 在行“xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value” 表示您将使用相邻左侧单元格的值命名图片。
3。 按 F5 运行代码的关键。 在打开的窗口中，选择一个文件夹来保存图片，然后单击 确定。
然后将导出指定列中的所有图片并自动使用您指定的相邻单元格值命名。
相关文章：如何在Excel中将图表导出为图形？
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
