すべてのカテゴリ

ption Explicit Option Base 0 ' Public Sub 四角と矢印模様描画マクロ()     Const SQARLEFT = 80 　　'描画開始位置Ｘ     Const SQARTOPP = 90 　　'　　　　　　Ｙ     '     Const SQARCOLS = 6 　　　'横/描画数     Const SQARROWS = 4 　　 '縦/描画数     '     Const SQARSIZE = 20        '描画サイズ     Const SQARSGAP = 2        '描画隙間     '     '縦横/描画間隔     Const SQARVPIT = ((SQARSIZE + SQARSGAP) * 2)     Const SQARHPIT = ((SQARSIZE + SQARSGAP) * 2)     '     Const SQARLNWE = 1.5 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     Randomize                              '*乱数系列初期化     lngCol = RGB(65