すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub リサジュ―曲線模様描画マクロ()     Const LISSLEFT = 80 　　　　　　　'描画開始位置Ｘ     Const LISSTOPP = 80　　　　　　　'　　　　　　Ｙ     '     Const LISSCOLS = 6 　　　　　　　'横/描画数     Const LISSROWS = 5　　　　　　   '縦/描画数     '     Const LISSANSP = 5 　　　　　　　'描画刻み角度     Const LISSRATE = 20　　　　　　  '線の長さレート     '     Const LISSCASE = 4 　　　　　　　'リサージュの種類     Const LISSVPIT = LISSRATE * 2.25　　   '横/描画間隔     Const LISSHPIT = LISSRATE * 2.25 　　  '縦/描画間隔     '     Const LISSLNWE = 1.5 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim s