すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 竹縞模様描画マクロ()     Const BAMBLEFT = 90　　         '描画開始位置Ｘ     Const BAMBTOPP = 80 　　　　 '　　　　　　Ｙ     Const BAMBHEIG = 180            '描画高さ     '     Const BAMBTWID = 15             '節の幅     Const BAMBSCHT = 3               '節の高さ     Const BAMBVSPC = 30             '横-間隔     Const BAMBCOLS = 7              '横/描画数     Const BAMBSECS = 4              '節の数     Const BAMBSHEI = (BAMBHEIG \ BAMBSECS)     '     Const BAMBSECP = 0.3           '節の凸傾斜    Const BAMBLNWE = 1             '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intDhe