すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub カラフル曲線描画マクロ()     Const COLFCNXP = 160　　　　    '描画中心位置Ｘ     Const COLFCNYP = 160 　　　　　'　　　　　　Ｙ     '     Const COLFANSP = 5 　　　　　　'描画刻み角度     Const COLFNPRD = 360 / COLFANSP　 '一周の点数     Const COLFRATE = 45　　　　     '線の長さレート     Const COLFRAND = 8　　　　      '周回数     '     Const COLFLNWE = 3.5　　　　  '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim sngPDat(COLFNPRD, 1) As Single     Dim sngSit As Single, sngRpd As Single     Dim sngRds As Single, lngCol As Long     '     sngRpd = Atn(1) / 45     For Jp = 0 To COLFRAND - 1         '*ポリラインデータ作成         Fo