【Word VBA】階段描画マクロ▽ソースコード

Public Sub 階段描画マクロ()

    Const STAILEF = 100                     '階段の開始位置Ｘ

    Const STAITOP = 80                      '　　　　　　　Ｙ

    Const STAIWID = 15                     '階段の幅/段

    Const STAIHEI = 15                      '階段の高さ/段

    '

    Const STAICNT = 12                     '段数

    '

    Const STAILWE = 1.5                    '線の太さ

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

    Dim Ip As Integer

    Dim intXp As Integer, intYp As Integer

    Dim sngPt(STAICNT * 2 - 1, 1) As Single

    '

    For Ip = 0 To STAICNT - 1

        sngPt(Ip * 2 + 0, 0) = CSng(STAILEF + STAIWID * Ip)

        sngPt(Ip * 2 + 0, 1) = CSng(STAITOP + STAIHEI * Ip)

        sngPt(Ip * 2 + 1, 0) = CSng(STAILEF + STAIWID * (Ip + 1))

        sngPt(Ip * 2 + 1, 1) = CSng(STAITOP + STAIHEI * Ip)

    Next Ip

    '

    With ActiveDocument.Shapes.AddPolyline(sngPt)

        .Line.ForeColor = RGB(255, 0, 255)               '←線色

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

        .Line.DashStyle = msoLineSolid                    '←線種

        '

        .Rotation = 0                                              '←描画角度

    End With

    Exit Sub

End Sub

   .Rotation = 90　　　                               '←描画角度

   .Rotation = 45　　　　　　　　　　　　　 '←描画角度

.Rotation = 135　　　　　　　　　　　　　 '←描画角度