すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 吉原繋ぎ文様描画マクロ()     Const YOSILEFT = 120 　　　　　　　　'描画開始位置Ｘ     Const YOSITOPP = 80 　　　　　　　　 '　　　　　　Ｙ     Const YOSIDISZ = 32                           'ひし形の大きさ     Const YOSIDIOV = 0.38                       'ひし形の重なり     Const YOSIDIWE = 4                           'ひし形の枠幅     Const YOSIECSZ = 4                            'ひし形隅の欠け     Const YOSIEBWE = 1.5                        '重なり白線太さ     '     Const YOSIROWS = 3                           'ひし形縦並びの数/2     Const YOSICOLS = 5　　　　　　          '　　　横並びの数     '     Const YOSIDISP = 8                            '横並びの間隔   '---------------------------------------------------------------------------     Dim Ip As