すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 提灯描画マクロ()     Const PLNTLEFT = 90 　　　'描画開始位置Ｘ     Const PLNTTOPP = 80 　　  '　　　　　　Ｙ     '     Const PLNTSWID = 30         '描画(火袋)幅     Const PLNTSHEI = 30          '描画(火袋)高さ     '     Const PLNTRWID = 20        '描画(塗輪)幅     Const PLNTRHEI = 6           '描画(塗輪)高さ     Const PLNTVSPC = 10        '横-間隔     Const PLNTHSPC = 20        '縦-間隔     Const PLNTCOLS = 5          '横/描画数     Const PLNTROWS = 4         '縦/描画数     '     Const PLNTLNWE = 0.5       '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intWxp As Integer, lngCol(