すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 三崩し文様描画マクロ()     Const THRCLEFT = 100                         '描画開始位置Ｘ     Const THRCTOPP = 80                          ' Ｙ     Const THRCLENG = 24                          '一辺の長さ     Const THRCMARG = 3                           'マージン     Const THRCSZPR = 0.6                         '線と余白比     Const THRCCOLS = 7                           '横並び数     Const THRCROWS = 5                          '縦並び数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim blnDir As Boolean, lngCol As Long     '     lngCol = RGB(184