すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 五葉線模様描画マクロ()     Const FVLVLEFT = 80　　　     '描画中心位置Ｘ     Const FVLVTOPP = 80 　　　　'　　　　　　Ｙ     '     Const FVLVANSP = 5 　　　　 '描画刻み角度     Const FVLVRATE = 12 　　　  '線の長さレート     '     Const FVLVVPIT = FVLVRATE * 4.2    '横-間隔     Const FVLVHPIT = FVLVRATE * 4.2    '縦-間隔     Const FVLVCOLS = 6                        '横/描画数     Const FVLVROWS = 4                       '縦/描画数     '     Const FVLVRAT1 = 1.2                      '大きい倍率     Const FVLVRAT2 = 0.75                    '小さい倍率     Const FVLVLNWE = 1                       '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim