Excel中画的美丽的几何图案(散点花瓣)

zhaozyuan · 发表于 2009-9-26 22:33

我也做花瓣

几何图案链接：

'Excel中画的美丽的几何图案 (随机直线)
http://club.excelhome.net/viewth ... 7079&highlight=
Excel中画的美丽的几何图案(坐标系和散点图)
http://club.excelhome.net/viewth ... 7068&highlight=
Excel中画的美丽的几何图案（阿基米德螺线）
http://club.excelhome.net/viewth ... 7055&highlight=
Excel中画的美丽的几何图案(散点花瓣)
http://club.excelhome.net/viewth ... 7084&highlight=
Excel中画的美丽的几何图案（艺术图案）
http://club.excelhome.net/viewth ... 7059&highlight=
Excel中画的美丽的几何图案（圆环）
http://club.excelhome.net/viewth ... 7049&highlight=
Excel中画的美丽的几何图案(散点图)
http://club.excelhome.net/thread-487204-1-1.html

[ 本帖最后由 zhaozyuan 于 2009-10-3 14:46 编辑 ]

zhaozyuan · 发表于 2009-9-26 22:37

来张800点的

[ 本帖最后由 zhaozyuan 于 2009-9-28 09:27 编辑 ]

zhaozyuan · 发表于 2009-9-28 09:26

'Excel中画的美丽的几何图案(散点花瓣)
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-9-28 9:20:26
001:Sub 花瓣()
002: clsupdt
003: clscu
'Cells.ClearContents
004: Const Pi = 3.14159
005: For a = 0 To 2 * Pi Step Pi / 300
006:          x = 100 * Cos(4 * a) * Cos(a) + 200 + 5
007:          y = 100 * Cos(4 * a) * Sin(a) + 200 + 5
008:          ovlr x, y, 2
009: Next a
010: opsupdt
011:End Sub

gwscn · 发表于 2011-11-21 11:38

漂亮，学习了

fish-2013 · 发表于 2014-12-31 12:07

美图欣赏，善心悦目！

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

[原创] Excel中画的美丽的几何图案(散点花瓣)