すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub さくら模様描画マクロ()     Const CHBSBLFT = 100           '描画開始中心位置Ｘ     Const CHBSBTOP = 100       　'　　　　　　　　Ｙ     '     Const CHBSCOLS = 5             '横/描画数     Const CHBSROWS = 4            '縦/描画数     '     Const CHBSVPIT = 50            '横/描画間隔     Const CHBSHPIT = 40            '縦/描画間隔     '     Const CHBSBZM1 = 1.8         '大きな花びら倍率    Const CHBSBZM2 = 1.2         '小さな花びら     Const CHBSBSRA = 8            '花びら位置係数     Const CHBSLNWE = 1 　　　 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim i