Question

那位大哥知道，如何将Chart生成的统计图输出为图像文件，并插入EXCEl导出

求源码！（据说有方法可以把页面元素丢入，并返回图片文件）

Answer 1

Sub Try()
Dim iChart As ChartObject, FileName As String

Set iChart = Sheets(1).ChartObjects(1) '或者ChartObjects("图表 1")，我假定你只有一个统计图表

FileName = Application.GetSaveAsFilename(InitialFileName:="iPicture", _
FileFilter:="JPEG文件(*.jpg),*.jpg", _
Title:="指定文件名") '存储的图片文件名的对话框
If FileName = "False" Then GoTo Exit_Line '如果点击取消按钮则退出
iChart.Chart.Export FileName:=FileName, FilterName:=UCase(Right(FileName, 3)) '导出为图片文件
Exit_Line:
End Sub

Answer 2

你要的东西好像我们现在正在做，不过还不知