[已解决]用代码实现插图

642070295

请各位高手看看，用代码怎样实现插入折线图（效果要求在附件里），先谢谢了！ 附件.rar (20.92 KB, 下载次数: 14)

2013-12-27 21:14 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-28 00:10

642070295 发表于 2013-12-27 22:48
我录了宏但不懂得怎么修改才能用，还是麻烦版主帮弄个代码吧？！

1.     With Worksheets(2).Shapes.AddChart.Chart
   
2.         .ChartType = xlLine
   
3.         .SetSourceData Source:=Worksheets(1).Range("a1").CurrentRegion
   
4.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

录一个宏就会了。

642070295

hwc2ycy 发表于 2013-12-27 22:00
录一个宏就会了。

我录了宏但不懂得怎么修改才能用，还是麻烦版主帮弄个代码吧？！

hwc2ycy

642070295 发表于 2013-12-27 22:48
我录了宏但不懂得怎么修改才能用，还是麻烦版主帮弄个代码吧？！

1.     With Worksheets(2).Shapes.AddChart.Chart
   
2.         .ChartType = xlLine
   
3.         .SetSourceData Source:=Worksheets(1).Range("a1").CurrentRegion
   
4.     End With

复制代码

642070295

hwc2ycy 发表于 2013-12-28 00:10

非常感谢hwc2ycy大师，您的代码非常精简高效，非常敬佩！！！麻烦大师再帮看看这个附件（效果要求在附件里），万望大师能帮忙！ 在图表中加横线.rar (47.28 KB, 下载次数: 8)

2013-12-28 20:26 上传

点击文件名下载附件

hwc2ycy

642070295 发表于 2013-12-28 20:26
非常感谢hwc2ycy大师，您的代码非常精简高效，非常敬佩！！！麻烦大师再帮看看这个附件（效果要求在附件里 ...

这个股价图上加水平线，我还真不会，{:1212:}

642070295

hwc2ycy 发表于 2013-12-28 21:27
这个股价图上加水平线，我还真不会，

嗯，谢谢hwc2ycy大师，您已经很尽力了，非常感谢！