我也发个3D图

jackpyl · 发表于 2007-3-4 16:12

Public Sub mov()
Dim Ch As ChartObject
Set Ch = Worksheets("Sheet1").ChartObjects("Chart 4")
Application.Wait (Now + TimeValue("0:00:01"))
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 0
j = 0
For i = 0 To 180
Cells(1, 12) = i
Cells(1, 11) = j
DoEvents
j = j + 1
Next i
j = j - 1
For i = 180 To 360
Cells(1, 12) = i
Cells(1, 11) = j
DoEvents
j = j - 1
Next i
End Sub
是不是要内容在宏上??还是在公式变化数据源 ! 研究半天没有明白,!

thinkinger · 发表于 2007-3-5 12:28

有意思，而且占用资源居然很少

kfhgng · 发表于 2007-3-6 20:03

好图,谢谢分享！

高凡 · 发表于 2007-4-16 11:18

不错

cfcpa · 发表于 2007-4-16 13:05

太牛了.

shaft_li · 发表于 2007-4-21 21:53

很不错呀！就是不知怎么做出来的。

zly7901 · 发表于 2009-4-3 15:16

对我来说太神奇啦

henhai00 · 发表于 2009-4-3 20:57

不错啊，实在是高

ailsa_918 · 发表于 2009-4-10 10:27

好厉害啊
高手太多了

newKina · 发表于 2009-4-10 16:33

作的真好,zan yi ge!

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

我也发个3D图

回复 1楼 agstick 的帖子