【Word VBA】角丸四角形模様描画マクロ▽ソースコード

Option Explicit

Option Base 0

'

Public Sub 角丸四角形模様描画マクロ()

    Const RDCNLEFT = 90　　　 '描画開始位置Ｘ

    Const RDCNTOPP = 80　　　'　　　　　　Ｙ

    '

    Const RDCNSWID = 36　　　'図形幅

    Const RDCNSHEI = 30　　　 '図形高さ

    '

    Const RDCNVSPC = 8 　　　 '横-間隔

    Const RDCNHSPC = -12　　  '縦-間隔

    Const RDCNCOLS = 6 　　　 '横-描画数

    Const RDCNROWS = 8 　　　'縦-描画数

    '

    Const RDCNLNWE = 1.5　　 '線の太さ

    Const RDCNADJU = 0.33　　'角の丸み度

    '---------------------------------------------------------------------------

    Dim Ip As Integer, Jp As Integer

    Dim intDxp As Integer, intDyp As Integer

    Dim lngCol As Long

    '

    lngCol = RGB(255, 99, 71)            '←線色

    For Jp = 0 To RDCNROWS - 1

        intDyp = RDCNTOPP + (RDCNSHEI + RDCNHSPC) * Jp

        For Ip = 0 To RDCNCOLS - 1

           intDxp = RDCNTOPP + (RDCNSWID + RDCNVSPC) * Ip _

                  + ((RDCNSWID + RDCNVSPC) / 2) * (Jp Mod 2)

   　　　'*角丸四角形描画

            With ActiveDocument.Shapes.AddShape( _

                 msoShapeRoundedRectangle, _

                intDxp, intDyp, RDCNSWID, RDCNSHEI)

                .Fill.Visible = msoFalse

                .Line.Visible = msoTrue

                .Line.ForeColor.RGB = lngCol       '←線色

                .Line.Weight = RDCNLNWE　　　 '←線の太さ

       　　　'

                .Adjustments(1) = RDCNADJU     '←角の丸み度

            End With

        Next Ip

    Next Jp

End Sub