Excel 中Shape对象应用对于增加视觉效果有很好的帮助作用,如果对颜色和图形比较擅长,那么可以制作出十分漂亮的Excel 报表。
这篇文章讲一下如何运用Excel制作国旗的示范。
制作过程,尽量以标准样式来做,但也有不尽如人意的地方,勉强完成,希望不会让你失望。
国旗是国家的象征,所以,从小对国旗的喜爱已经深入骨髓。
那么如何来表达这种喜悦呢!
认真了解一下国旗的构成和历史很有必要。
中华人民共和国国旗是五星红旗 ,为中华人民共和国的象征和标志 。中华人民共和国国旗的设计者是曾联松,旗面为红色,长方形,其长与高为三与二之比,旗面左上方缀黄色五角星五颗。一星较大,其外接圆直径为旗高十分之三,居左;四星较小,其外接圆直径为旗高十分之一,环拱于大星之右
这个不是图片,是应用Excel中添加shape图画功能做出来的,颜色和尺寸按标准值来设置.
可以看到表格内设置有三个按钮,重置、五星红旗和星条旗,大家都明白,不多说了.
这里只是展示了一个型号的国旗制作方法,其实国旗有8个标准尺寸,其它标准国旗可以按下面格式设置.
旗帜的国家标准尺寸
1号旗:288X192CM
2号旗:240X160CM
3号旗:192X128CM
4号旗:144X96CM
5号旗:96X64CM
6号旗:60X40CM
7号旗:30X20CM
8号旗:21X14CM
代码有一些新内容,主要是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
这个没做完成,本来想尽一切努力做到完美,后来发现,看上去虽然简单,做起来有点费时间.
转念一想,由于一些大家都知道的原因,感觉做完美之后也不过是浪费自己的时间.
所以大家看一下就好了,完成度80%.
关于星条旗的历史粗略看了一下,没有兴趣了解美国历史,所以也不好多引用什么.
整体来说,也是应用了Shape对象的方法来制作.横平竖直画几条直线就可以了.
那么多小星星,也没有填满,希望美国和喜欢美国的朋友不要介意.
有兴趣的朋友,也可以试着完成一下.
欢迎关注、收藏