すべてのカテゴリ

Option Explicit Option Base 0 Public Sub ルート長方形描画マクロ()     Const ROOTWLFT = 100                     '描画開始位置Ｘ     Const ROOTWTOP = 100                    '　　　　　　Ｙ     Const ROOTWLNG = 250                    '最初の対角線長     Const ROOTWCNT = 7                       '対角線数      '---------------------------------------------------------------------------     Dim Ip As Integer, dblRd As Double, intLng As Integer     Dim dblDr As Double,  intXp(2) As Integer, intYp(2) As Integer    '    dblRd = (4 * Atn(1)) / 180     intXp(0) = ROOTWLFT: intYp(0) = ROOTWTOP    intLng = ROOTWLNG: dblDr = 54.7     '     For Ip = 0 To ROOTWCNT - 1         intXp(1) = intXp(0) + CInt(intLng * Cos(dblDr * dblRd))