すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 十字繋ぎ模様描画マクロ()     Const CROSLEFT = 160             '描画開始位置Ｘ     Const CROSTOPP = 80              '　　　　　　Ｙ     '     Const CROSSIZE = 36               '十字のサイズ     '     Const CROSCOLS = 5               '横描画数(奇数)     Const CROSROWS = 6              '縦描画数    '     Const CROSLNLN = 2               '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intSxp As Integer, intSyp As Integer     Dim intSzT As Integer, lngCol(1) As Long     '     '     lngCol(0) = RGB(255, 228, 225)         '←塗りつぶし色     lngCol(1) = vbRed