すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 雪輪文様描画マクロ()     Const SNOWLEFT = 90　　　          '描画開始位置Ｘ     Const SNOWTOPP = 90　　　         '　　　　　　Ｙ     '     Const SNOWHZSP = 70 　　  　　　'水平間隔     Const SNOWVTSP = 70                  '垂直間隔     '     Const SNOWCOLS = 3                   '横 描画数     Const SNOWROWS = 3                  '縦 描画数     '     Const SNOWLNWT = 1                  '線の太さ     '     Const SNOWSZ1 = 20                    '雪輪半径１     Const SNOWSZ2 = 10                    '雪輪半径２     Const SNOWGAP = 3                     '雪輪の隙間     '     Const SNOWARCA = 40                 '円弧描画角     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp