すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 松皮麻の葉文様描画マクロ()     Const PSHPLEFT = 80　　　　         '描画開始位置Ｘ     Const PSHPTOPP = 100　　　　       '　　　　　　Ｙ     Const PSHPLENG = 35                     '三角形一辺長さ    '     Const PSHPCOLS = 7                       '描画列数     Const PSHPROWS = 4                     '描画行数    '     Const PSHPLWEI = 1#                    '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim intHei As Integer, blnUpp As Boolean     Dim intCxp As Integer, intCyp As Integer     Dim intXps(3) As Integer, intYps(3) As Integer     Dim lngCol As Long     '     lngCol = RGB(184, 134, 11)