すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 観世水模様描画マクロ()     Const KNZWLEFT = 100　　'描画開始位置Ｘ     Const KNZWTOPP = 100　　'　　　　　　Ｙ     '     Const KNZWCOLS = 5　　　'横/描画数     Const KNZWROWS = 5　　　'縦/描画数     '     Const KNZWSWAN = 30　　　'渦巻描画刻み角     Const KNZWSWMG = 0.5　　'渦巻描画　係数     Const KNZWOCWD = (20 * KNZWSWMG) 　'円弧幅     Const KNZWOCPT = (8 * KNZWSWMG) 　　'円弧間隔     Const KNZWOCCN = 4　　　'円弧の数     Const KNZWOCAG = 0.1　　'円弧の厚み     Const KNZWOCHT = 1.1　　'(円弧/渦巻)の高さ     Const KNZWHSPC = 1.25　　'(行/円弧)の高さ     '     Const KNZWLNWE = 0.75　　'渦巻線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, Lp As Integer