すべてのカテゴリ

Public Sub 網代文様描画マクロ()     Const WICKLEFT = 80 　　　　　　　　　'描画開始位置Ｘ     Const WICKTOPP = 100 　　　　　　　　'　　　　　　Ｙ     Const WICKLENG = 10　　　　　　         '長方形短辺長さ     Const WICKCOLS = 12 　　　　　　　　  '列数     Const WICKROWS = 6                           '行数     '     Const WICKLNWE = 1                           '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intLLn As Integer, lngCol(1) As Long     Dim intXps As Integer, intYps As Integer     Dim sngLng As Single     '     lngCol(0) = vbWhite                         '←塗りつぶし色     lngCol(1) = RGB(0, 0, 205)               '←線色     intLLn = WICKLENG * 2: sngLng = WICKLENG /