すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 直線で楕円描画マクロ()    Const LNELCXPT = 200                   '中心位置（Ｘ）   Const LNELCYPT = 160                   '　　　　（Ｙ）    '    Const LNELUVAL = 0.4                   '内円の位置係数    Const LNELVVAL = 0.1                   '    '    Const LNELOFSX = 100                  '内円の傾き係数    Const LNELOFSY = 90    '    Const LNELLNCL = &H5AFF            '線の色（オレンジ）    Const LNELLNWT = 1                    '線の太さ    '---------------------------------------------------------------------------    Dim Ip As Integer    Dim sngKpt As Single    Dim sngXp0 As Single, sngYp0 As Single    Dim sngXp1 As Single, sngYp1 As Single    Dim sngXp2 As Single, sngYp2 As Single    Dim sn