すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 変形三角形模様描画マクロ()     Const DFTRLEFT = 90 　　　　'描画開始位置Ｘ     Const DFTRTOPP = 90 　　　  '　　　　　　Ｙ     '     Const DFTRCOLS = 6             '横/描画数     Const DFTRROWS = 6           '縦/描画数     '     Const DFTRBZMG = 20         '描画サイズ     Const DFTRWAVE = 0.4 * DFTRBZMG         '変形量     '     Const DFTRVPIT = DFTRBZMG * 1.73205   '横/描画間隔     Const DFTRHPIT = DFTRBZMG * 1.5          '縦/描画間隔     '     Const DFTRLNWE = 1#                             '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngC