VBA, 587 560 ไบต์
Sub S(a,b,c,d,e,f)
Set v=ActiveSheet.Shapes.AddShape(a,b,c,d,e)
v.Fill.ForeColor.RGB=f
v.Line.Visible=0
If a=5 Then v.Adjustments(1)=.5
End Sub
Sub U():p=91.5:w=-1
S 1,0,0,500,450,w
S 9,0,0,500,450,0
S 9,38.5,13.5,423,423,w
S 1,36,120,29,210,0
S 1,65,80,26.5,290,0
S 1,435,120,29,105,0
S 1,408.5,80,26.5,145,0
q=212.25:S 1,9,q,480,19,0
S 5,p,205.75,317,13,w
S 1,405,231.25,95,131.5,w
r=14.5:S 1,p,70.5,r,30,0
q=85:S 9,p,59.6,q,q,w
S 1,p,349.5,r,30,0
S 9,p,305.4,q,q,w
S 1,395,70.5,r,30,0
S 9,323.5,59.6,q,q,w
q=231.25:S 1,p,q,6.5,6.5,0
S 9,p,q,13,13,w
End Sub
เรียกใช้แมโคร U โดยทั่วไปการวาดรูปร่างเป็นจำนวนมาก รูปร่าง 1 เป็นสี่เหลี่ยมจัตุรัสสี่เหลี่ยมผืนผ้า 5 อันโค้งมนและ 9 เป็นรูปไข่ ผลผลิตกว้าง 500 ถึง 450 สูง

แก้ไข : เพิ่มสี่เหลี่ยมโค้งมน (พร้อมการปรับเปลี่ยนปลายให้เป็นครึ่งวงกลม) เพื่อสร้างมุมรัศมีที่ด้านบนของแถบด้วยการวาดรูปร่างเดียว
0,085
,0,013
และ0,025
วัด? เป็น0,846
เส้นทแยงมุมในช่วงกลางตั้งใจจะผ่านศูนย์กลางของวงรีที่เกิดขึ้นจากด้านนอก1
และ0,9
?