すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub もみじ描画マクロ()     Const MAPLLEFT = 100                   '描画開始位置Ｘ     Const MAPLTOPP = 100                  '　　　　　　Ｙ     '     Const MAPLVSPC = 50                    '横-間隔     Const MAPLHSPC = 50                   '縦-間隔     Const MAPLCOLS = 5                     '横/描画数     Const MAPLROWS = 4                   '縦/描画数     '     Const MAPLLNWE = 1                    '線の太さ     '     Const MAPLRATE = 0.75                 'ポリライン倍率    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim varPly As Variant     Dim sngBas(