すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 平行四角形模様描画マクロ()     Const PRLLLEFT = 90 　　　　　　　'描画開始位置Ｘ     Const PRLLTOPP = 80　　　 　　　   '　　　　　　Ｙ     '     Const PRLLSWID = 24                     '描画幅     Const PRLLSHEI = 24                      '描画高さ     '     Const PRLLVSPC = -6                      '横-間隔     Const PRLLHSPC = 0                       '縦-間隔     Const PRLLCOLS = 10                     '横/描画数     Const PRLLROWS = 7                     '縦/描画数     '     Const PRLLLNWE = 1.5                   '線の太さ     Const PRLLANGL = 0.5                    '辺の傾き     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer,