すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 楕円状に並べた楕円形描画マクロ()     Const ELLICXPS = 200               '輪の中心位置Ｘ     Const ELLICYPS = 160               '                  Ｙ     '     Const ELLISCNT = 15                 '楕円の数     Const ELLISRAD = 16                 '楕円の半径     '     Const ELLIMRAD = 100              '輪の半径     '     Const ELLIRATE = 0.5               '楕円のＹ／Ｘ     '     Const ELLILNWT = 1                '輪郭線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intEwd As Integer, intEht As Integer     Dim sngAng As Single, lngCol(1) As Long     '     lngCol(0) = vbBlack 　　　　　　'←輪郭