非计算机科班出身人士，仅仅是喜欢喜欢Word VBA代码；同时，也是一位10年的MS Office疯狂热爱者。后续不定期更新该系列博客，希望我能坚持不断学习。
今天是周日，在家躺着也是躺着，就跑到网上瞎逛。我每天会从油管上找些视频资源下载下来。但是不能下载太多，怕被学校或者油管找我喝茶。
突然看到一个关于MS Word VBA绘制图形的视频教程。甚是有趣，随即照葫芦画瓢，边学边做，最终实现了最终目标。现代码分享如下，以飨读者。（smile）

Sub hexagon()
'
' hexagon 宏
'
'
Dim hexagon_width As Double
Dim hexagon_height As Double
Dim hexagon_xspacing As Double
Dim columns As Long
Dim rows As Longcolumns = 10
rows = 10hexagon_xspacing = ActiveDocument.PageSetup.PageWidth / columns
hexagon_width = hexagon_xspacing / 3 * 2
hexagon_height = 2 * Sqr((hexagon_width / 2) ^ 2 - (hexagon_width / 4) ^ 2)For counter_rows = 0 To rows - 1For counter_columns = 0 To columns - 1If counter_rows Mod 2 = 0 Thenhexagon_offset = 0Elsehexagon_offset = hexagon_width / 4 * 3End IfWith ActiveDocument.Shapes.AddShape(msoShapeHexagon, (counter_columns * hexagon_xspacing) + hexagon_offset, counter_rows * (hexagon_height / 2), hexagon_width, hexagon_height).Adjustments(1) = 0.58001 / 2.Fill.ForeColor.ObjectThemeColor = Rnd() * 5 + 4.Line.ForeColor.RGB = RGB(255, 255, 255).Line.Weight = 3End WithNext counter_columnsNext counter_rowsEnd Sub