【Word VBA】つた家紋描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub つた家紋描画マクロ()
Const IVYSLEFT = 150 '*描画開始位置Ｘ
Const IVYSTOPP = 150 ' Ｙ
'
Const IVYSYOPS = 180 '*円弧描画Ｙ位置補正値
Const IVYSCRAD = 8 '*真ん中の丸半径
Const IVYSLNWE = 4 '*線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim Kp As Integer, Lp As Integer
Dim intDxp As Integer, intDyp As Integer
Dim lngCol(1) As Long
Dim sngBBas() As Single, sngBDat() As Single
Dim varBezi As Variant
Dim sngABas() As Single, sngADat() As Single
Dim varArcL As Variant
'
'*外形輪郭ベジェ曲線データ
varBezi = Array(70.3,
0
