【Word VBA】ベジェ曲線による丸い波線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub ベジェ曲線による丸い波線描画マクロ()
Const BZCWPAIV = 3.141592653589 'π
Const BZCWRADI = (BZCWPAIV / 180) 'π/180
Const BZCWYAMA = 12 '山の数
Const BZCWBZCN = BZCWYAMA * 6 'ベジェ曲線の位置数
'
Const BZCWCXPT = 200 '描画中心位置(X) Const BZCWCYPT = 180 ' 〃 (Y) Const BZCWCRAD = 80 '描画半径
Const BZCWAPWD = 15 '波線振れ幅
Const BZCWLNCL = &H8B8B00 '線の色(ダークシアン)
Const BZCWLNWT = 1.5 '線の太さ
'------------------------------------------------------------------
0