Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7838|回复: 11

[已解决]宏自动生成图表,但是第二个图把第一图覆盖了怎样移开

[复制链接]
发表于 2013-7-4 16:41 | 显示全部楼层 |阅读模式
利用宏生成图表,一个折线图,一个柱形图
两个图表都生成成功,但是第二个图把第一个覆盖了
怎样将两个都显示出来?
也是通过代码,可以么?
求助!!!!
代码见附近
最佳答案
2013-7-5 15:57
  1. Sub 图表重排()
  2.     Dim cht As Object
  3.     Set cht = ActiveSheet.ChartObjects
  4.     For i = 2 To cht.Count
  5.         cht(i).Left = cht(i - 1).Left
  6.         cht(i).Top = cht(i - 1).Top + cht(i - 1).Height + 50
  7.     Next
  8. End Sub
复制代码

cpkN.rar

12.19 KB, 下载次数: 37

 楼主| 发表于 2013-7-4 16:42 | 显示全部楼层
现在可以手动把第二个移开,怎样用代码生成呢?
回复

使用道具 举报

发表于 2013-7-4 17:29 | 显示全部楼层
你的都加密了,又不给密码,难道要人家破密?再来解决你的问题
回复

使用道具 举报

发表于 2013-7-4 18:02 | 显示全部楼层
直接录制宏,把图表移动的操作录下来。

回复

使用道具 举报

 楼主| 发表于 2013-7-5 15:35 | 显示全部楼层
殿堂之上 发表于 2013-7-4 17:29
你的都加密了,又不给密码,难道要人家破密?再来解决你的问题

SORRY SORRY  我重新 发附件在这里

cpkN.rar

12.19 KB, 下载次数: 71

回复

使用道具 举报

 楼主| 发表于 2013-7-5 15:35 | 显示全部楼层
hwc2ycy 发表于 2013-7-4 18:02
直接录制宏,把图表移动的操作录下来。

录了  不好使 请给出代码 谢谢
回复

使用道具 举报

发表于 2013-7-5 15:57 | 显示全部楼层    本楼为最佳答案   
  1. Sub 图表重排()
  2.     Dim cht As Object
  3.     Set cht = ActiveSheet.ChartObjects
  4.     For i = 2 To cht.Count
  5.         cht(i).Left = cht(i - 1).Left
  6.         cht(i).Top = cht(i - 1).Top + cht(i - 1).Height + 50
  7.     Next
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2013-7-5 15:58 | 显示全部楼层
从第2个图表开始,每个都向上一个图表左对齐,垂直间隔50(这个你可以自己调)。
回复

使用道具 举报

 楼主| 发表于 2013-7-5 16:12 | 显示全部楼层
hwc2ycy 发表于 2013-7-4 18:02
直接录制宏,把图表移动的操作录下来。

谢谢你哦  OK了

回复

使用道具 举报

发表于 2013-7-5 16:13 | 显示全部楼层
兄台,我们弄这玩意都是用Minitab的  你弄一个那玩意把  自己拿excel做多麻烦呀
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:57 , Processed in 0.806598 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表