【Word VBA】クロスステッチ描画マクロ▽ソースコード
Option Explicit
Option Base 0
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const STCHSXPT As Integer = 300 '描画開始位置X
Const STCHSYPT As Integer = 150 ' Y
Const STCHLENG As Integer = 5 '辺の長さ
Const STCHORDR As Integer = 3 '次数
Const STCHLNCL As Long = &H4763FF '線の色(Tomoto)
Const STCHLNWT As Single = 1 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置X(変数)
Public p_intDyp As Integer ' Y(変数)
Public p_intAng As Integer '描画角度 (変数)
'*-
0