すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 乱数を使ったモンドリアン風模様描画マクロ()     Const MODRLEFT = 90              '描画開始位置Ｘ     Const MODRTOPP = 80             '　　　　　　Ｙ     '     Const MODRWIDT = 200           '描画幅     Const MODRHEIG = 200            '描画高さ     '     Const MODRCOLS = 5               '最小マス数（横）     Const MODRROWS = 5              '最小マス数（縦）     '     Const MODRLNWE = 10             '線の太さ     '     Const MODRCLLM = 3               '色エリアの最大値    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intLnH(MODRCOLS) As Integer     Dim intLnV(MODRROWS) As Integer     Dim intRct(MODRCOLS - 1, MODRROWS - 1, 4