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

发布网友发布时间：2023-07-09 10:16

共2个回答

热心网友时间：2023-10-08 22:08

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

热心网友时间：2023-10-08 22:09

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com