すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 鮫文様描画マクロ()    Const SHRKLEFT = 120　　　　        '描画開始位置Ｘ     Const SHRKTOPP = 135　　　　       '　　　　　　Ｙ     '     Const SHRKFRAD = 10 　　　　　　'扇半径間隔     Const SHRKCONT = 5 　　　　　　 '扇半径数     Const SHRKSWID = SHRKFRAD * SHRKCONT  '描画幅     Const SHRKSHEI = (SHRKSWID - 5)               '描画高さ     Const SHRKCOLS = 5                    '横/描画数     Const SHRKROWS = 4                   '縦/描画数     '     Const SHRKLNWE = 3                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intDxp As Integer, intDyp As Integer     Dim intRad As Integer