すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 撫子文様描画マクロ()   Const PINKLEFT = 120 　　　'描画開始位置 Ｘ     Const PINKTOPP = 100　　  '　　          　Ｙ     Const PINKPLMG = 0.3 　　 'ポリライン描画倍率     '     Const PINKVSPC = 50         '横-間隔     Const PINKHSPC = 50         '縦-間隔     Const PINKCOLS = 5           '横/描画数     Const PINKROWS = 4          '縦/描画数     '     Const PINKLNWT = 1            '線の太さ     Const PINKRADI = 26.1 + 8   '花びらの中心と                                                 '花の中心距離     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Intege