那位大哥知道，如何将Chart生成的统计图输出为图像文件，并插入EXCEl导出
答案:2 悬赏:10 手机版
解决时间 2021-01-25 04:17
- 提问者网友：心牵心
- 2021-01-24 05:54
求源码！（据说有方法可以把页面元素丢入，并返回图片文件）
最佳答案
- 五星知识达人网友：一叶十三刺
- 2021-01-24 06:43
你要的东西好像我们现在正在做，不过还不知
全部回答
- 1楼网友：一把行者刀
- 2021-01-24 06:51
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯