すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 雲立涌文様描画マクロ()     Const CLTWLEFT = 100                  '描画開始位置Ｘ     Const CLTWTOPP = 80                   '　　　　　　Ｙ     '     Const CLTWUNIT = 40                   '波線周期長さ     Const CLTWAMPL = 20                  '波線周期振れ     Const CLTWYDVT = 3                    '振れ位置補正     '     Const CLTWBETW = 30                 '波線間隔     Const CLTWCLWD = 16                 '雲の幅     '     Const CLTWCOLS = 7                   '横描画数     Const CLTWROWS = 5                  '縦描画数     '     Const CLTWLNW1 = 2                  '波線の太さ     Const CLTWLNW2 = 1.5               '雲の線の太さ     '---------------------------------------------------------------------------     Dim I