すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 鹿の子文様描画マクロ()     Const FAWNLEFT = 100　　　　　　　            '描画開始位置Ｘ     Const FAWNTOPP = 80 　　　　　　　　　　　'　　            Ｙ     Const FAWNLENG = 20　　　　　　　             '一辺の長さ     Const FAWNMARG = 4 　　　　　　　　　　　 'マージン     Const FAWNHOLW = 4                                   '穴の幅     Const FAWNHOLH = 6                                    '穴の高さ     Const FAWNCOLS = 8                                    '横並び数     Const FAWNROWS = 6                                  '縦並び数     Const FAWNANGL = 3                                   '左右振れ幅     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer