【Word VBA】小桜文様描画マクロ▽ソースコード
Option Explicit
Option Base 0
Public Sub 小桜文様描画マクロ()
Const SCHELEFT = 80 '描画開始位置X
Const SCHETOPP = 100 ' Y
'
Const SCHEPRAD = 12 '花びら中心半径
Const SCHEPWID = 12 '花びら幅
Const SCHEPHEI = 16 '花びら高さ
'
Const SCHEROWS = 4 '描画数(縦)
Const SCHECOLS = 6 '描画数(横)
Const SCHEROLN = 45 '縦方向間隔
Const SCHECOLN = 55 '横方向間隔
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer, Kp As Integer
Dim intCxp As Integer, intCyp As Integer
Dim intPxp As Integer, intPyp As Integer
Dim lngCol(1) As Long, dblR
0