すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub モロッカン柄描画マクロ()     Const MOROLEFT = 100 　　　　　　'描画開始位置Ｘ     Const MOROTOPP = 70　　　　        '　　　　　　Ｙ     '     Const MORORADI = 12 　　　　　　 '半円の半径     Const MOROSTLN = 6                     '直線の長さ     Const MOROCOLS = 8                    '横描画数     Const MOROROWS = 3                   '縦描画数     '     Const MOROLNWE = 2                   '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(47, 79, 79)              '←線色     For Ip = 0 To MOROCOLS - 1         intDxp = MOROLEFT + (MORORADI * 2)