すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 花菱模様描画マクロ()     Const FLDILEFT = 80          '描画開始位置Ｘ     Const FLDITOPP = 90         '　　　　　　Ｙ     '     Const FLDICOLS = 5          '横/描画数     Const FLDIROWS = 3        '縦/描画数     '     Const FLDILGRD = 24       '花のサイズ     Const FLDISMRD = 6        '花びらのサイズ     Const FLDICNRD = 6        'めしべのサイズ     Const FLDICNLN = 9        '十字の線の長さ    '     Const FLDIVPIT = (FLDILGRD + FLDISMRD) * 2　　　  '横-間隔     Const FLDIHPIT = FLDIVPIT　　　　　　　                   '縦-間隔     Const FLDILNWE = 1.5 　 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim i