すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 四葉線模様描画マクロ()     Const FOLVLEFT = 80　　　    '描画中心位置Ｘ     Const FOLVTOPP = 80 　　　　'　　　　　　Ｙ     '     Const FOLVANSP = 5　　　      '描画刻み角度     Const FOLVRATE = 8 　　　　  '線の長さレート     '     Const FOLVVPIT = FOLVRATE * 4    '横-間隔     Const FOLVHPIT = FOLVRATE * 4   '縦-間隔     Const FOLVCOLS = 7                     '横/描画数     Const FOLVROWS = 6                    '縦/描画数     '     Const FOLVLNWE = 1                    '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim sngPBas(360 / FOLVANSP, 1) As Single     Dim sngP