すべてのカテゴリ

Public Sub お椀とお箸描画マクロ()     Const BOWLLEFT = 100　　'描画開始位置Ｘ     Const BOWLTOPP = 100　　'　　　　　　Ｙ 　　'     Const BOWLCOLS = 6 　　'横/描画数     Const BOWLROWS = 5 　　'縦/描画数 　　'     Const BOWLLNWE = 0.75　 '線の太さ 　　'     Const BOWLFMMG = 2 　　'お椀の描画倍率     Const BOWLPLMG = 2 　　'お箸の描画倍率 　　'     Const BOWLSTVP = (6 * BOWLFMMG) 　　'箸の位置Ｘ     Const BOWLSTHP = (8 * BOWLFMMG) 　　'　　　　Ｙ     Const BOWLSTGP = (2 * BOWLPLMG) 　　'箸の間隔 　　'     Const BOWLVPIT = (20 * BOWLPLMG)　　'横-間隔     Const BOWLHPIT = (15 * BOWLFMMG)　　'縦-間隔 　　'---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intDxp As Integer, intDyp A