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對象的方法來制作.橫平豎直畫幾條直線就可以了.

那麼多小星星,也沒有填滿,希望美國和喜歡美國的朋友不要介意.

有興趣的朋友,也可以試着完成一下.

歡迎關注、收藏

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部