将图表保存为图片的方法

nothingwmm · 发表于 2011-1-19 23:44

本帖最后由东门吹雪于 2012-9-1 22:16 编辑

将Excel图表保存为图片的方法
回帖可见三种不同的方法(复制粘贴/Html/VBA):
[hide]1. 复制图片,然后粘贴-选择性粘贴-粘贴为图片；
2. 将workbook另存为html，然后从网页文件里找到.PNG格式的图片，当然可以直接将.PNG改成.JPG;
3.
Sub SaveChartsAsGIF()

Dim ChtObj As ChartObject

Dim Fname As String

For Each ChtObj In ActiveSheet.ChartObjects

      Fname = ThisWorkbook.Path & “\” & ChtObj.Name & “.gif”

      ChtObj.Chart.Export Filename:=Fname, FilterName:=”gif”

  Next ChtObj

End Sub
复制代码
[/hide
]

kpsimon · 发表于 2011-1-19 23:59

真的不错,值得学习，感谢楼主！

那么的帅 · 发表于 2011-1-20 00:47

谢谢楼主分享

gy7898 · 发表于 2011-1-20 01:12

谢谢分享，学习学习

9lee · 发表于 2011-1-20 08:58

我也知道的，哈哈

9lee · 发表于 2011-1-20 09:00

我再补充一种：将照相机功能调出来，拍张照，也是一张图片，并且，这张照片与原图表保持更新。

sunjing-zxl · 发表于 2011-1-23 16:03

先回复看看！！

c888 · 发表于 2011-1-23 16:16

感谢楼主！

dxwzm · 发表于 2011-1-23 18:07

用Capture复制粘贴，要哪部分就是哪部分，随你想！更简便！

迎客松 · 发表于 2011-1-23 18:12

谢谢分享！！

		自动登录	找回密码
密码			注册

[VBA] 将图表保存为图片的方法