Excel 中Shape对象应用对于增加视觉效果有很好的帮助作用，如果对颜色和图形比较擅长，那么可以制作出十分漂亮的Excel 报表。

这篇文章讲一下如何运用Excel制作国旗的示范。

制作过程，尽量以标准样式来做，但也有不尽如人意的地方，勉强完成，希望不会让你失望。

excel怎么画五角星（如何用Excel制作一面五星红旗）(1)

国旗介绍

国旗是国家的象征，所以，从小对国旗的喜爱已经深入骨髓。

那么如何来表达这种喜悦呢！

认真了解一下国旗的构成和历史很有必要。

中华人民共和国国旗是五星红旗 ，为中华人民共和国的象征和标志 。中华人民共和国国旗的设计者是曾联松，旗面为红色，长方形，其长与高为三与二之比，旗面左上方缀黄色五角星五颗。一星较大，其外接圆直径为旗高十分之三，居左；四星较小，其外接圆直径为旗高十分之一，环拱于大星之右

excel怎么画五角星（如何用Excel制作一面五星红旗）(2)

完成效果图

这个不是图片,是应用Excel中添加shape图画功能做出来的,颜色和尺寸按标准值来设置.

可以看到表格内设置有三个按钮,重置、五星红旗和星条旗,大家都明白,不多说了.

这里只是展示了一个型号的国旗制作方法,其实国旗有8个标准尺寸,其它标准国旗可以按下面格式设置.

旗帜的国家标准尺寸

　　1号旗：288X192CM　　2号旗：240X160CM　　3号旗：192X128CM　　4号旗：144X96CM　　5号旗：96X64CM　　6号旗：60X40CM　　7号旗：30X20CM　　8号旗：21X14CM

excel怎么画五角星（如何用Excel制作一面五星红旗）(3)

代码

代码有一些新内容,主要是shape对象的一些方法和属性设置.

Shape方法

'添加一个矩形

Me.Shapes.AddShape(msoShapeRectangle, 0, 0, 660, 440)

.Fill.ForeColor.RGB = RGB(244, 0, 2)'设置前景色

.Line.Visible = msoFalse'设置无边框

.Duplicate'复制一个Shape对象

.IncrementTop'设置对象相对顶部位置

.IncrementLeft设置对象相对左边距

简单介绍用到的这些属性,如果想学习更多Shape方法和属性,可以查看Excel帮助.

五星红旗代码

Sub addStar5()'新建五星红旗 过程 Dim q As Shape, s As Shape Set q = Me.Shapes.AddShape(msoShapeRectangle, 0, 0, 660, 440) With q .Fill.ForeColor.RGB = RGB(244, 0, 2) .Line.Visible = msoFalse End With Set s = Me.Shapes.AddShape(msoShape5pointStar, 50, 50, 120, 120) With s .Fill.ForeColor.RGB = RGB(210, 255, 0) .Line.Visible = msoFalse End With Set s = Me.Shapes.AddShape(msoShape5pointStar, 200, 25, 30, 30) With s .Fill.ForeColor.RGB = RGB(250, 244, 8) .Line.Visible = msoFalse .IncrementRotation 15 End With '国旗颜色 '红(244) 绿(0) 蓝(2) #F40002 红色 '红(250) 绿(244) 蓝(8) #FAF408 黄色 For i = 1 To 3 Set s = s.Duplicate '复制对象 With s .IncrementTop 38 '相对高度 Select Case i Case 1 .IncrementLeft 15 '相对左边距 .IncrementRotation 30 '相对顺时针旋转 Case 2 .IncrementLeft -15 .IncrementRotation 30 Case 3 .IncrementLeft -38 .IncrementRotation 15 End Select End With Next i End Sub

excel怎么画五角星（如何用Excel制作一面五星红旗）(4)

星条旗

这个没做完成,本来想尽一切努力做到完美,后来发现,看上去虽然简单,做起来有点费时间.

转念一想,由于一些大家都知道的原因,感觉做完美之后也不过是浪费自己的时间.

所以大家看一下就好了,完成度80%.

关于星条旗的历史粗略看了一下,没有兴趣了解美国历史,所以也不好多引用什么.

整体来说,也是应用了Shape对象的方法来制作.横平竖直画几条直线就可以了.

那么多小星星,也没有填满,希望美国和喜欢美国的朋友不要介意.

有兴趣的朋友,也可以试着完成一下.

欢迎关注、收藏

,