如何从Excel一次导出所有图像?
假设您的工作簿中有很多图片,并且想一次将它们保存到特定文件夹中,通常您可以手动将图片一张一张复制粘贴保存,但是复制粘贴很耗时反复这样。 在这里,我将向您介绍一些解决此工作的技巧。
使用“另存为”功能一次从Excel导出所有图像
内置 Excel 另存为 功能,您可以将工作簿另存为 网页 将所有图片(包括图表、形状和其他对象)保存在文件夹中。 请执行以下操作。
1. 打开包含要保存的图片的工作簿。 点击 文件 > 另存为 > 浏览。
2.在 另存为 对话框,您需要:
3.在弹出 微软的Excel 对话框中,单击 USB MIDI(XNUMX通道) 按钮。
4.打开保存导出文件的文件夹,可以看到里面列出了一个文件夹和一个HTML格式的文件。 工作簿中的所有图片,包括图表、形状或对象都保存在此文件夹中。
5.可以将需要的图片保留在文件夹中,不需要的可以删除
使用出色的工具轻松从 Excel 一次导出所有图像
上述方法将从工作簿中提取所有对象,也许其中一些您不需要。 如果你有 Kutools for Excel 安装在Excel中 导出图形 功能可以帮助您只保存您需要的图片。
安装后 Kutools for Excel,请执行以下操作:
1。 点击 Kutools 加 > 进出口 > 导出图形:
2.在 导出图形 对话框,请进行如下配置:
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
笔记:
3。 按 F5 运行代码的关键。 在打开的窗口中,选择一个文件夹来保存图片,然后单击 确定。
然后将导出指定列中的所有图片并自动使用您指定的相邻单元格值命名。
相关文章:
最佳办公生产力工具
🤖 | Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行 | 生成代码 | 创建自定义公式 | 分析数据并生成图表 | 调用 Kutools 函数... |
热门特色: 查找、突出显示或识别重复项 | 删除空白行 | 合并列或单元格而不丢失数据 | 不使用公式进行四舍五入 ... | |
超级查询: 多条件VLookup | 多值VLookup | 跨多个工作表的 VLookup | 模糊查询 .... | |
高级下拉列表: 快速创建下拉列表 | 依赖下拉列表 | 多选下拉列表 .... | |
列管理器: 添加特定数量的列 | 移动列 | 切换隐藏列的可见性状态 | 比较范围和列 ... | |
特色功能: 网格焦点 | 设计图 | 大方程式酒吧 | 工作簿和工作表管理器 | 资源库 (自动文本) | 日期选择器 | 合并工作表 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊过滤器 (过滤粗体/斜体/删除线...)... | |
前 15 个工具集: 12 文本 工具 (添加文本, 删除字符,...) | 50+ 图表 类型 (甘特图,...) | 40+ 实用 公式 (根据生日计算年龄,...) | 19 插入 工具 (插入二维码, 从路径插入图片,...) | 12 转化 工具 (小写金额转大写, 货币兑换,...) | 7 合并与拆分 工具 (高级组合行, 分裂细胞,...) | ... 和更多 |
使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能...
Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松
- 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50%,并减少数百次鼠标单击!