すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub ミニトマト描画マクロ()     Const MITOLEFT = 90                 '描画開始位置Ｘ     Const MITOTOPP = 90                '　　　　　　Ｙ     '     Const MITORADI = 20                'トマトの実の半径     Const MITOSWID = (MITORADI * 2)          '描画幅     Const MITOSHEI = (MITORADI * 2)           '描画高さ     '     Const MITOHRAD = (MITORADI * 0.7)    'へた位置     Const MITOHLWD = 10                          'へたの幅     Const MITOHLHT = 10                           'へたの高さ     '     Const MITOERAD = (MITORADI * 0.8)    'てり位置     Const MITOEFWD = 5                            'てりの幅     Const MITOEFHT = 10                           'てりの高さ     Const MITOVSPC = 3                             '横-間隔