すべてのカテゴリ

Option Explicit Option Base 0 '金子みすゞの詩『私と小鳥と鈴と』の一節より Public Sub 皆違って皆いい描画マクロ()     Const KANELEFT = 80　　　        '描画開始位置Ｘ     Const KANETOPP = 80 　　　　　'　　　　　　Ｙ     '     Const KANEVPIT = 75　　　　     '横-間隔     Const KANEHPIT = 75 　　　　 　'縦-間隔     Const KANECOLS = 4　　　         '横/描画数     Const KANEROWS = 3 　　　　　 '縦/描画数     '     Const KANELNWE = 1　　　         '線の太さ     '     'ベジエ曲線描画倍率     Const KANEBZR顔 = 0.9     Const KANEBZR目 = 0.2     Const KANEBZR鼻 = -0.3     Const KANEBZR口 = -0.25     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim Lp As Integer, intDlt As Integer     Dim intCxp As Integer, intCyp As In