我正在尝试创建一个按钮,将“图表”工作表中的图表导出为 jpeg 文件。这是我的代码,但它不断显示此错误:
运行时错误 424:需要对象
具体来说:
Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
这是代码
Sub ExportChart()
Dim myChart As Chart
Dim myFileName As String
Set myChart = Graphs.ChartObjects(3).Name = "Chart4"
myFileName = "myChart.jpg"
On Error Resume Next
Kill ThisWorkbook.Path & "\" & myFileName
myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG"
MsgBox "OK"
Set myChart = Nothing
End Sub
感谢大家!
这就是你正在尝试的吗?
另外,如果你想将其保存为 jpg 那么为什么要使用 png 过滤器呢?我已将“myChart.jpg”更改为“myChart.png”。根据情况进行更改。
Sub ExportChart()
Dim objChrt As ChartObject
Dim myChart As Chart
Set objChrt = Sheets("Graphs").ChartObjects(3)
Set myChart = objChrt.Chart
myFileName = "myChart.png"
On Error Resume Next
Kill ThisWorkbook.Path & "\" & myFileName
On Error GoTo 0
myChart.Export Filename:=ThisWorkbook.Path & "\" & myFileName, Filtername:="PNG"
MsgBox "OK"
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)