如何使用Excel绘制奥运五环旗

awx007

如何使用Excel绘制五环旗

如上图所示，如何使用Excel绘制奥运五环旗呢，要做到途中的效果：一环叠一环。
只能使用Excel。
求高手指教，谢谢。


该贴已经同步到 awx007的微博

刀羊

貌似可以用半圆的图片进行拼接。

lee1892

看来我太无聊了~~

awx007

lee1892 发表于 2014-11-17 15:34
看来我太无聊了~~

厉害。
太感谢了。

awx007

不过方法太高端了，我的想法是能够通过图形工具绘制出来就好了。

devil033

这也太简单了吧，哈不要太追求细节哈，差不多就行了哈

aqlal

devil033 发表于 2014-11-18 10:38
这也太简单了吧，哈不要太追求细节哈，差不多就行了哈

如此五环，太棒兰！

xuquandong

很不错，怎么做出来的啊

lee1892

俺也来一个画图的 五环.rar (12.94 KB, 下载次数: 9)

2014-11-18 13:15 上传

点击文件名下载附件

1. Sub DrawOlympic()
   
2.     Dim dRad#, dWid#, dLeft#, dTop#, i%
   
3.     Dim dOffVer#, dOffHor#
   
4.     Dim nBlue%, nBlack%, nRed%, nYellow%, nGreen%
   
5.    
   
6.     nBlue = 48: nBlack = 8: nRed = 10: nYellow = 51: nGreen = 17
   
7.     dLeft = 150: dTop = 150
   
8.     dRad = 100: dWid = 14.5
   
9.     dOffVer = 3.4: dOffHor = 1.1
   
10.    
    
11.     With Sheet1
    
12.         For i = 1 To .Shapes.Count
    
13.             .Shapes(1).Delete
    
14.         Next
    
15.    
    
16.         With .Shapes.AddShape(msoShapeDonut, dLeft, dTop, dRad, dRad)
    
17.             .Adjustments.Item(1) = dWid / dRad
    
18.             .Fill.ForeColor.SchemeColor = nBlue
    
19.             .Line.Visible = msoFalse
    
20.             With .Duplicate
    
21.                 .Left = dLeft: .Top = dTop
    
22.                 .IncrementLeft dRad * dOffHor
    
23.                 .Fill.ForeColor.SchemeColor = nBlack
    
24.             End With
    
25.             With .Duplicate
    
26.                 .Left = dLeft: .Top = dTop
    
27.                 .IncrementLeft dRad * dOffHor * 2
    
28.                 .Fill.ForeColor.SchemeColor = nRed
    
29.             End With
    
30.             With .Duplicate
    
31.                 .Left = dLeft: .Top = dTop
    
32.                 .IncrementLeft dRad * dOffHor / 2
    
33.                 .IncrementTop dRad * Sqr(2) / dOffVer
    
34.                 .Fill.ForeColor.SchemeColor = nYellow
    
35.             End With
    
36.             With .Duplicate
    
37.                 .Left = dLeft: .Top = dTop
    
38.                 .IncrementLeft dRad * dOffHor * 3 / 2
    
39.                 .IncrementTop dRad * Sqr(2) / dOffVer
    
40.                 .Fill.ForeColor.SchemeColor = nGreen
    
41.             End With
    
42.         End With
    
43.         
    
44.         With .Shapes.AddShape(msoShapeBlockArc, dLeft, dTop, dRad, dRad)
    
45.             .Adjustments.Item(2) = (1 - 2 * dWid / dRad) / 2
    
46.             .IncrementRotation 35
    
47.             .Fill.ForeColor.SchemeColor = nBlue
    
48.             .Line.Visible = msoFalse
    
49.             With .Duplicate
    
50.                 .Left = dLeft: .Top = dTop
    
51.                 .IncrementLeft dRad * dOffHor
    
52.                 .IncrementRotation 95
    
53.                 .Fill.ForeColor.SchemeColor = nBlack
    
54.             End With
    
55.             With .Duplicate
    
56.                 .Left = dLeft: .Top = dTop
    
57.                 .IncrementLeft dRad * dOffHor * 3 / 2
    
58.                 .IncrementTop dRad * Sqr(2) / dOffVer
    
59.                 .IncrementRotation 5
    
60.                 .Fill.ForeColor.SchemeColor = nGreen
    
61.             End With
    
62.             With .Duplicate
    
63.                 .Left = dLeft: .Top = dTop
    
64.                 .IncrementLeft dRad * dOffHor * 2
    
65.                 .IncrementRotation -60
    
66.                 .Fill.ForeColor.SchemeColor = nRed
    
67.             End With
    
68.         End With
    
69.     End With
    
70. End Sub

复制代码

awx007

lee1892 发表于 2014-11-18 12:45
俺也来一个画图的

大神之作，太棒了。