【Word VBA】コッホ島描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const COCHSXPT As Integer = 300 '描画開始位置X
Const COCHSYPT As Integer = 260 ' Y
Const COCHLENG As Integer = 8 '辺の長さ
Const COCHORDR As Integer = 3 '次数
Const COCHLNCL As Long = &H578B2E '線の色(SeaGreen)
Const COCHLNWT As Single = 1.5 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置X(変数)
Public p_intDyp As Integer ' Y(変数)
Public p_intAng As Integer '描
0