すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 六つ手卍文様描画マクロ()     Const SIXHLEFT = 160　　　　　        '描画開始位置Ｘ     Const SIXHTOPP = 80 　　　　　　　  '　　　　　　Ｙ     '     Const SIZHMGNI = 10                        'ポリライン描画倍率     '     Const SIXHCOLS = 7                          '横描画数     Const SIXHROWS = 4                        '縦描画数     Const SIXHLNWE = 2                        '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intMxp As Integer, intMyp As Integer     Dim sngBas(9, 1), sngDat(9, 1) As Single     Dim sngTmp(1, 9, 1) As Single, db