【Word VBA】ペイズリー柄描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const PAISLEFT = -80 '描画開始位置Ｘ
Const PAISTOPP = 10 ' Ｙ
'
Const PAISCOLS = 5 '横/描画数
Const PAISROWS = 3 '縦/描画数
'
Const PAISVPIT = 45 '横/描画間隔
Const PAISHPIT = 60 '縦/描画間隔
Const PAISBZMG = 0.5 '描画倍率'
Const PAISLNWT = 1.5 '線の太さ
Const PAISLNCL = &H696969 '線、塗りつぶしの色
'-------------------------------------------------------------------------------
Dim varShaNa(0 To 4) As Variant 'グループ化のための名前格納エリア
''Public Sub ペイズリー柄描画マクロ() Dim Ip As Integer, Jp As Integer
Dim intDxp As Integer, intDyp As Integer, varBezi As Variant
Dim sngBBs1() As Single, sngBBs2() As Single, sngBBs3()
0
