Word VBA绘制图形-1

非计算机科班出身人士，仅仅是喜欢喜欢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 Long



columns = 10
rows = 10



hexagon_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 - 1


    For counter_columns = 0 To columns - 1
        If counter_r