Excel 有很多有用的内置图表,您还可以组合并创建一些令人惊叹的组合图表。Excel 图表是一种直观地显示数据的好方法,当您必须将其展示给您的经理/客户时,它通常是最常用的。
虽然您的图表可能在Excel 中,但这并不是向您的客户/经理展示它们的最佳方式。通常,需要在PowerPoint 演示文稿或PDF 的MS Word 文档中显示这些图表。
如果它们是将Excel 图表保存为图像的内置功能,那就太好了,但事实并非如此。
但是,有一些方法可以轻松地将Excel 中的图表保存和导出为图像(JPG、PNG、BMP 是一些流行的),在本教程中,我将介绍这些方法。
我使用的方法取决于你有多少图表。如果您只有几个要保存为图像的图表,则可以使用复制粘贴方法,但如果您有很多,最好使用“下载为HTML”或VBA 方法。
内容
将图表复制为另存为图像(MS Paint 或其他图形工具)
我看到很多人使用的一个非常常见的方法是截取整个屏幕的屏幕截图(这可以通过点击PrintScreen 键来完成)。完成此操作后,您可以打开MS Paint(或您使用的任何工具),粘贴屏幕截图,然后删除其他所有内容并保留图像。
虽然这是将图表另存为图像的好方法并且效果很好,但还有一种更好的方法(花费的时间更少,图像更准确)。
假设您有一个带有如下图表的Excel 文件:
以下是将此图表/图形另存为图像的步骤:
- 右键单击要保存的图表
- 点击复制
- 打开MS Paint(或您使用的任何工具)
- 粘贴图像(Control V 适用于MS Paint)
- 如果有任何多余的空白,只需选择并拖动它,这样你就只有图表了
- 单击文件选项卡
- 转到另存为
- 单击要保存图表的图像格式(有JPG、PNG 和BMP 格式)。
这种方法超越屏幕截图的好处是,这种方法只复制图表,您需要在MS Paint 中调整一次空白(如果您使用任何其他图形工具,则可能不需要)。
如果您在Excel 中已经有两个或多个图表排列,并且您想要将整个排列保存为图像,您可以通过选择所有这些图表、复制它们并将它们粘贴到MS Paint 中来实现。
一次将工作簿中的所有图表保存为图像
如果您有一个包含大量图表的工作簿,并且您想一次性保存所有这些图表,更好的方法是将Excel 工作簿保存为HTML 文件。
执行此操作时,Excel 工作簿中的所有图表都将在下载的文件夹中保存为PNG 格式的图像。
假设您有一个Excel 工作簿,其中包含多个带有图表的工作表。
以下是将文件保存为HTML 并将Excel 图表保存为PNG 格式的图像的步骤:
- 打开包含图表的工作簿
- 单击文件选项卡
- 点击另存为
- 单击浏览并选择要保存所有图表图像的位置
- 将“保存类型”更改为网页(*.htm、*.html)
- 点击保存
这会将您的Excel 文件保存为指定文件夹中的网页。
现在要将所有图表作为图像获取,请转到文件夹,您将找到一个名为Filename_files 的文件夹(其中FileName 是您在保存文件时为文件指定的名称)。
打开此文件夹时,您会发现所有已保存为PNG 图像的图表。
注意:当我在我的系统上尝试此操作时,它为每个图表提供了两个图像(相同)。因此,如果您有四个图表,它将为您提供八个图像。
注意:在将Excel 文件另存为HTML 之前,请确保保存备份副本。此外,当您将文件另存为HTML 时,当前打开的文件现在是HTML 文件,而不是Excel 格式文件。保存文件后,您应该关闭当前文件(现在是HTML 文件)并打开Excel 版本(这就是为什么备份很重要)
使用VBA 将所有图表保存为图像
您还可以使用VBA 代码将图表从Excel 工作簿快速保存到特定文件夹。
如果您只需要将活动图表(您选择的图表)保存到特定文件夹中,您可以使用以下VBA 代码:
ActiveChart.Export ":UserssumitDesktopExampleChartName.png"
上面的代码会将活动图表以PNG 格式保存在Example 文件夹中,名称为ChartName。您可以根据需要更改图表名称和文件夹名称/位置。
如果您想以JPG 格式保存图像/图片,可以使用以下代码:
ActiveChart.Export ":UserssumitDesktopExampleChartName.jpg"
您可以通过将其放在即时窗口中运行此VBA 代码,将光标放在行尾并按Enter 键(或者您可以放入常规模块并从那里运行代码)。
但是,如果您有很多图表,这种方法将需要相当长的时间。在这种情况下,您可以使用下面提到的稍长的VBA 代码:
Sub SaveChartsasImages()
昏暗的整数
Dim CurrentActiveSheet As Worksheet
应用程序.ScreenUpdating = False
Application.EnableEvents = False
Set CurrentActiveSheet = ActiveSheet
For Each Sht In Worksheets
For Each cht In ActiveSheet.ChartObjects
cht.Activate
我=我+ 1
ActiveChart.Export “C:\Users\sumit\Desktop\Example\” & Sht.Name & “_chart” & i & “.png”
Next cht
Next Sht
CurrentActiveSheet.Activate
Application.ScreenUpdating =真
Application.EnableEvents = True
END SUB
上面的代码遍历工作簿中的每个工作表,然后在每个工作表中进入每个图表。然后它选择图表并将其保存在指定的文件夹中。
所有这些循环都是使用For Each Next 循环完成的。
此外,图表以名称格式worksheetname_chartNumber 保存。这将确保您能够识别哪个图表属于哪个工作表。
使用VBA 的另一个好处是您可以自定义代码以仅将图表保存为来自某些特定工作表的图像。例如,如果您只想保存带有前缀2020 的工作表中的图表,您可以修改代码来执行此操作(这可以使用FOR 循环行之后的IF THEN ELSE 语句来完成)
在MS Word 或PowerPoint 中将Excel 图表复制并粘贴为图像
在大多数情况下,您必须在MS Word 或PowerPoint 文档中展示您的图表。如果您正在创建客户报告或文档,通常会出现这种情况。
就像您可以在MS Paint 中复制和粘贴图像一样,您也可以对Word 或PowerPoint 执行相同操作。
但是有一个区别……
当您在Excel 中复制图表/图形并将其粘贴到MS Word 或MS PowerPoint 中时,它不会被粘贴为图像。它实际上被粘贴为“Microsoft Office 图形对象”
此选项对于希望即使在MS Word 或PowerPoint 中仍保留图表的人很有用,因此您可以将其编辑和格式化为图表。另外,这种图表还是和Excel中的数据相连的,当你在后台更新数据时,这个粘贴的图表也会随之更新。
但是,如果您希望将此图表粘贴为图像,以下是执行此操作的方法(在此示例中,我将使用MS Word 来展示这些步骤,对于PowerPoint 也是如此):
- 选择要复制到MS Word 的图表
- 右键单击,然后单击复制
- 打开要将此图表粘贴为图像的MS Word 文档
- 在“主页”选项卡的“剪贴板”类别中,单击“粘贴”图标(向下箭头部分)。
- 在出现的选项中,单击粘贴为图片选项
上述步骤将确保图表被粘贴为图片。
如果您只是单击粘贴按钮(而不是粘贴为图片),图形将不会被粘贴为图片。
因此,您可以通过以下四种方式将Excel 中的图表快速保存为图像。某些方法还允许您选择图像的格式(例如使用MS Paint 或VBA)。
如果您只有几个图表,您可以使用MS Paint 方法,但如果您要保存跨工作表的许多图表,最好使用HTML 方法或VBA 代码。如果最终的目的是在Word 或PowerPoint 中插入这些图表,最好将这些图表直接复制并粘贴为这些其他工具中的图片。
希望您发现本教程很有用。