すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 毛卍文模様描画マクロ()     Const HRSWLEFT = 100               '描画開始位置Ｘ     Const HRSWTOPP = 120              '　　　　　　Ｙ     '     Const HRSWHZSP = 25                '水平間隔     Const HRSWVTSP = 70                '垂直間隔     Const HRSWCOLS = 4                 '横 描画数     Const HRSWROWS = 6                '縦 描画数     '     Const HRSWPTCN = 15               '花びら枚数     Const HRSWRADI = 10               '輪の半径     Const HRSWMOWD = 6              '花びらの幅     Const HRSWMOHT = 12             '花びらの長さ     Const HRSWMORT = 0.35           '曲がり比率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Int