12、Excel VBA 实用操作指南

Excel VBA 实用操作指南

1. 图表导出为图像

在 Excel 2010 中创建图表时，程序会在图表和其数据源之间建立链接。当数据源发生变化时，Excel 会自动更新图表以反映这些变化。但对于从网络文件中提取数据的图表，若文件暂时不可用，此功能就不太实用。若要导出图表当前外观的图像，可按以下步骤操作：
1. 创建一个子例程。
2. 在子例程主体中输入以下代码模式：

ActiveChart.ChartArea.Copy
Range("range").Select
ActiveSheet.Pictures.Paste.Select

例如，若要将图表作为图像粘贴到 Sheet2 的 A1 单元格，代码如下：

ActiveChart.ChartArea.Copy
Sheets("Sheet2").Activate
Range("Sheet2!$A$1").Select
ActiveSheet.Pictures.Paste.Select

需要注意的是，运行 ActiveChart.ChartArea.Copy 代码会将图表图像复制到剪贴板，你可以将其粘贴到任何其他文件中，而不仅仅是当前的 Excel 工作簿。

2. 创建迷你图

Excel 2010 引入了迷你图，这是由 Edward Tufte 发明的一种非常实用的功能。迷你图是一种小型图形，能传达通常用全尺寸图表表示的信息。以下是几种常见迷你图的创建方