编写按钮代码将表格中的图表导出到同目录下

轩辕轼轲 · 发表于 2011-1-16 15:52

本帖最后由轩辕轼轲于 2011-1-16 15:58 编辑

在第一个工作表中有一个图表，现在要给这个表中的按钮编写一段代码，将这个Chart图表以JPG的格式导出，存放在工作簿所在目录下。

参考答案见沙发！

轩辕轼轲 · 发表于 2011-1-16 15:52

本帖最后由轩辕轼轲于 2011-1-16 15:57 编辑

参考答案：

游客，如果您要查看本帖隐藏内容请回复

tkgg93 · 发表于 2011-1-16 16:22

谢谢车车分享

xianweishuji661 · 发表于 2011-1-16 16:43

学习学习学习

nothingwmm · 发表于 2011-1-17 19:38

Sub ExportTojpg()
Worksheets("Sheet1").ChartObjects(1).Chart.Export _
Filename:=ThisWorkbook.Path & "\MyChart.jpg", FilterName:="jpg"
End Sub

LVAN_TJ · 发表于 2011-1-17 19:43

{:35:}谢谢分享

nothingwmm · 发表于 2011-1-18 12:11

本帖最后由 nothingwmm 于 2011-1-18 12:12 编辑

选中要该图形，然后运行如下代码也可以直接输入到当前目录。

复制代码

nothingwmm · 发表于 2011-1-18 12:15

直接用下面这个也可以:

复制代码

匿名 *发表于 2014-10-5 12:22* · 发表于 2014-10-5 12:22

我需要

匿名 *发表于 2014-10-5 21:37* · 发表于 2014-10-5 21:37

这真是用用的东西呀！

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