すべてのカテゴリ

Option Explicit Option Base 0 Public Sub ベジェ曲線によるたまご描画マクロ()     Const EGGLEFT = 60            'たまご描画開始位置Ｘ     Const EGGTOPP = 80           '                           Ｙ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim sngBzBs(9, 1) As Single, sngBzWk(9, 1) As Single     '     '*たまごのベジェ曲線ベースデータ     sngBzBs(0, 0) = 50: sngBzBs(0, 1) = 0     sngBzBs(1, 0) = 40: sngBzBs(1, 1) = 0     sngBzBs(2, 0) = 5: sngBzBs(2, 1) = 40     sngBzBs(3, 0) = 30: sngBzBs(3, 1) = 72     sngBzBs(4, 0) = 40: sngBzBs(4, 1) = 83     sngBzBs(5, 0) = 60: sngBzBs(5, 1) = 83     sngBzBs(6, 0) = 70: sngBzBs(6, 1) = 72     sngBzBs(7, 0) = 95: sngBz