すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 鱗文様描画マクロ()    Const SCLPLEFT = 80　　　　　　         '描画開始位置Ｘ     Const SCLPTOPP = 100　　　　　　      '　　　　　　Ｙ     Const SCLPLENG = 30　　　　　　        '三角形一辺長さ     Const SCLPCOLS = 14　　　　　　        '描画列数     Const SCLPROWS = 6 　　　　 　　　　'描画行数     '     Const SCLPLNWE = 0.75                     '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intHei As Integer, blnUpp As Boolean     Dim intLft As Integer, intTop As Integer     Dim lngCol(2) As Long     '     lngCol(0) = RGB(0, 191, 255)　　　'←塗りつぶし色1     lngCol(1) = RGB(135, 206, 250)　　'←塗りつぶし色2     lngCol(2) = vbWhite　　　　　　  　'←線色 　　'