すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 小菊文様描画マクロ()     Const SCHRLEFT = 120         '描画開始位置　X     Const SCHRTOPP = 100        '                     Y     '     Const SCHRMRAD = 3           '真ん中●半径     Const SCHRCRAD = 10          '周り●並び半径     Const SCHRHRAD = 22          '花びら並び半径     '     Const SCHRROWS = 4           '描画数(縦)     Const SCHRCOLS = 5            '描画数(横)     Const SCHRROLN = 65　　    '縦方向間隔     Const SCHRCOLN = 65 　　　'横方向間隔     '     Const SCHRBZXX = 0.05　　  'ベジェ曲線倍率     Const SCHRBZYC = -5 　　　  'ベジェ曲線描画位置補正値     '     Const SCHRLNWE = 0.75　　  '輪郭線の太さ      '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim K