寻找图表排列的例子

welcpa · 发表于 2005-5-23 23:49

寻找图表排列的例子,比如现在在1个工作表中有很多图表,但排列不整齐,需要快速排列整齐.记得原来有位高手,用VBA实现了这个功能,图表按相同大小整齐顺序排列了.

如果有网友见过请给个连接!谢谢!

snood · 发表于 2005-5-24 12:38

Sub snood() Dim ch As String For i = 1 To ActiveSheet.ChartObjects.Count ch = ActiveSheet.ChartObjects(i).Name With ActiveSheet.Shapes(ch) .Left = Cells(i * 10, 8).Left .Top = Cells(i * 10, 8).Top .Height = 150 .Width = 300 End With Next End Sub

chenjun · 发表于 2005-5-24 12:56

Dim cht As ChartObject For Each cht In ActiveSheet.ChartObjects cht.Top=..... ........... Next cht 这样就可以了。

welcpa · 发表于 2005-5-24 13:51

不错不错，两个都不错,[em17]

我的想法是有空仔细研究关于图表的对象以后，自己就可以随心所欲的改变图表名称,坐标轴标题位置……,尽量减少手工设置程度,有时间再做个加载宏,。

希望后来的朋友,说说如果自己制作图表工具,你希望有的功能!

welcpa · 发表于 2005-5-30 15:17

以下是引用welcpa在2005-5-24 13:51:00的发言：
不错不错，两个都不错,[em17]

我的想法是有空仔细研究关于图表的对象以后，自己就可以随心所欲的改变图表名称,坐标轴标题位置……,尽量减少手工设置程度,有时间再做个加载宏,。

希望后来的朋友,说说如果自己制作图表工具,你希望有的功能!

找到了！

Sub 排列图表() Dim i, n n = ActiveSheet.ChartObjects.Count ActiveSheet.ChartObjects(1).Top = 50 ActiveSheet.ChartObjects(1).Left = 30 For i = 2 To n ActiveSheet.ChartObjects(i).Top = ActiveSheet.ChartObjects(1).Top + ((i - 1) \ 2) * ActiveSheet.ChartObjects(1).Height ActiveSheet.ChartObjects(i).Left = ActiveSheet.ChartObjects(1).Left + ((i - 1) Mod 2) * ActiveSheet.ChartObjects(1).Width Next i End Sub

lfiiRinV.rar (7.63 KB, 下载次数: 28)

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

寻找图表排列的例子

最新热点 /1