Excel中画的美丽的几何图案

zhaozyuan · 发表于 2009-9-26 20:02

file:///C:/DOCUME%7E1/ADMINI%7E1/LOCALS%7E1/Temp/moz-screenshot-1.png

别的地方改过来的，不敢称为原创，代码如下：
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-9-26 19:55:22
001:Sub cls()
002:ActiveSheet.Shapes.SelectAll
003:Selection.Delete
004:End Sub
   '撰写:宏FANS
   'QQ:1158268815
   '日期:2009-9-26 19:55:23
001:Sub LineandOval()
002:cls
003:With ActiveSheet
004:For i = 1 To 25
005:.Shapes.AddLine 0, 10 * i, (250 - 10 * i), 0
006:.Ovals.Add 5 * i, 5 * i, 5 * i, 5 * i
007:.Ovals(i).Interior.ColorIndex = xlNone
008:Next i
009:End With
010:End Sub

几何图案链接：

1.Excel中画的美丽的几何图案
http://club.excelhome.net/viewthread.php?tid=487045&page=1#pid3193338
2.Excel中画的美丽的几何图案 (随机直线)
http://club.excelhome.net/viewth ... 7079&highlight=
3. Excel中画的美丽的几何图案(坐标系和散点图)
http://club.excelhome.net/viewth ... 7068&highlight=
4. Excel中画的美丽的几何图案（阿基米德螺线）
http://club.excelhome.net/viewth ... 7055&highlight=
5.Excel中画的美丽的几何图案(散点花瓣)
http://club.excelhome.net/viewth ... 7084&highlight=
6.Excel中画的美丽的几何图案（艺术图案）
http://club.excelhome.net/viewth ... 7059&highlight=
7.Excel中画的美丽的几何图案（圆环）
http://club.excelhome.net/viewth ... 7049&highlight=
8.Excel中画的美丽的几何图案(散点图)
http://club.excelhome.net/thread-487204-1-1.html

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

cxffxc · 发表于 2009-9-26 20:19

不错
漂亮

zhaozyuan · 发表于 2009-9-26 20:21

谢谢斑竹夸奖

snood · 发表于 2009-9-26 21:04

椭圆用得好

snood · 发表于 2009-9-27 08:31

'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=

zhaozyuan · 发表于 2009-9-27 10:47

谢谢snood版主整理
我是做好一个发一个没来得及整理

zhaozyuan · 发表于 2009-9-28 17:03

再来张彩色滴

zhaozyuan · 发表于 2009-9-28 17:38

zhaozyuan · 发表于 2009-9-29 20:32

zznjcs · 发表于 2009-9-29 21:25

学习,一定学习.

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

[推荐] Excel中画的美丽的几何图案