すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 網代麻の葉文様描画マクロ()     Const HEWILEFT = 80　　　　　　　　　　    '描画開始位置Ｘ     Const HEWITOPP = 100 　　　　　　　　　　'　　　　　　Ｙ     Const HEWILENG = 30 　　　　　　　　　　  '平行四辺形底辺長さ     Const HEWICOLS = 8                                   '列数     Const HEWIROWS = 5                                 '行数     '     Const HEWILNWE = 1                                  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intWid As Integer, intHei As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol(1) As Long     '     lngCol(0) = vbWhite                           '←塗りつぶし色     lngCol(1) = RG