user_hswgelxo 发表于 2016-4-12 13:35:56

vba ppt蝴蝶曲线

file:///C:/Users/Administrator/AppData/Roaming/360se6/Application/User Data/temp/dKeLT26WPAAA&ek=1&kp=1&pt=0&bo=7ACxAAAAAAAFAH4!&su=093454865&sce=0-12-12&rf=2-9..jpg
[*]Private Sub CommandButton1_Click() '蝴蝶曲线
[*]With SlideShowWindows(Index:=1).View
[*].PointerColor.RGB = vbBlue
[*]π = 3.1415926
[*]r = t * 360
[*]For t = -π To π Step 0.001
[*]x = 50 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]y = 50 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
[*]Next
[*]For t = -π To π Step 0.001
[*]x = 40 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]y = 40 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
[*]Next
[*]For t = -π To π Step 0.001
[*]x = 20 * Sin(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]y = 20 * Cos(t) * (Exp(Cos(t)) - 2 * Cos(4 * t) - Sin(t / 12) ^ 5)
[*]SlideShowWindows(1).View.DrawLine 360 + x, 270 + y, 360 + x + 0.001, 270 + y + 0.001 '
[*]Next
[*]End WithEnd Sub

复制代码

xbgzs2010 发表于 2016-4-12 14:39:22

可否发个完整的附件，分享给大家。

liudi85 发表于 2016-4-12 14:39:26

附件已上传，是ppt放映模式使用的，不知道改成窗体，我正在研究窗体的gai+，希望得到高手帮助。

erindandan 发表于 2016-4-12 15:35:27

附件已上传，是ppt放映模式使用的，不知道如何改成窗体。

gaojiawei 发表于 2016-4-12 16:00:29

感谢分享，放映点击按钮，没有响应。

user_wfuvzzpk 发表于 2016-4-12 17:32:02

有现成的代码，你可以根据我的代码重新做下，我是win7的系统，ppt2003

user_hyzsphdf 发表于 2016-4-12 17:48:13

谢谢分享！学习了！原来VBA还可以这样用！
页: [1]
查看完整版本: vba ppt蝴蝶曲线