【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
0
