すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 七宝文様描画マクロ()     Const SEVELFT = 100　　　　　　　    '描画開始位置　X     Const SEVETOP = 80 　　　　　　　　 '                     Y     Const SEVELNG = 30                          '間隔幅(半径)     Const SEVECOL = 8                            '列数     Const SEVEROW = 6                           '行数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intXp As Integer, intYp As Integer     Dim sngDat(3, 1) As Single, sngXdt As Single     Dim lngCl As Long     '     lngCl = RGB(148, 0, 211)　　　    　　　　　　   '←描画色     sngXdt = (4# * (Sqr(2) - 1)) / 3# * SEVELNG 　'*ベジェ曲線用     For Jp = 0 To SEVEROW - 1         i