做国旗手工步骤（所有的国旗手工制作）

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

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

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

做国旗手工步骤,所有的国旗手工制作(1)

国旗介绍

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

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

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

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

做国旗手工步骤,所有的国旗手工制作(2)

完成效果图

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

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

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

旗帜的国家标准尺寸

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

做国旗手工步骤,所有的国旗手工制作(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

做国旗手工步骤,所有的国旗手工制作(4)