如何通过名称引用导出图表答案

【问题标题】：How to export Chart via name reference如何通过名称引用导出图表
【发布时间】：2015-01-31 02:32:35
【问题描述】：

我的一张工作表（图表）上有多个图表，我只想导出 6 个特定图表。当我选择一个图表并转到Layout 选项卡时，我看到一个名为Chart Name 的东西，我假设它可以让我选择图表名称。我尝试将其中一张图表的名称更改为“ChartA”。请帮助编写这个简单的 VBA 代码。

Sub SaveJPGTest()
Chart("ChartA").Export "Z:\specialChart.jpg"
End Sub

【问题讨论】：

标签： excel vba charts

【解决方案1】：

添加basePath 将jpg保存在与excel文件相同的目录中。保存为 PNG，因为它似乎比 JPG 质量更好，文件大小更小。不确定这是否是最好的文件格式。

此代码设置工作表charts 和图表ChartA 处于活动状态，然后保存活动图表。

Sub SaveAreaPowerJPGs()
  Dim basePath As String
  basePath = ThisWorkbook.Path & "\"
  ActiveWorkbook.Sheets("charts").Activate

  ActiveSheet.ChartObjects("ChartA").Activate
  ActiveChart.Export Filename:=basePath & "ChartA.jpg", Filtername:="PNG"
End Sub

【讨论】：

【解决方案2】：

复制自：http://windowssecrets.com/forums/showthread.php/129693-Export-charts-from-Excel-into-any-image-format，稍作改编。

Sub ChartToJPG()
Dim Chrt As Chart
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("ChartA").Activate
ActiveChart.ChartArea.Copy
Set Chrt = Charts.Add
Chrt.Paste
Chrt.Export Filename:="C:\Users\Maudibe\Desktop\MyChart.jpg", Filtername:="JPG"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

选择适合的路径。

【讨论】：

您的答案中的额外代码不是必需的。介意我清理一下以显示什么是必不可少的吗？
当然，当我的答案是你的一个子集时，只是不确定礼仪。

【解决方案3】：

当您的图表在它自己的工作表中时，我修改了此代码。它还会自动获取活动工作表名称SheetName，并将其用作保存时的文件名，类似于上面。我还通过将“\”放在Filename 中稍微更改了basePath。享受吧。

Sub Save_Chart()
   Dim basePath As String
   basePath = ThisWorkbook.Path
   SheetName = ActiveSheet.Name

   ActiveWorkbook.Sheets(SheetName).Activate
   ActiveSheet.Export Filename:=basePath & "\" & SheetName & ".jpg", Filtername:="JPG"
End Sub

【讨论】：