すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 角繋ぎ文様描画マクロ()     Const CRNRLEFT = 100 　　　　　　'描画開始位置Ｘ     Const CRNRTOPP = 100　　　　      '　　　　　　Ｙ     '     Const CRNRLWID = 10　　　　        'Ｌ字幅     Const CRNRLHEI = 20　　　　　      'Ｌ字高さ     Const CRNRCOLS = 5                      '横描画数     Const CRNRROWS = 6                     '縦描画数     '     Const CRNRLNWE = 1                     '線の太さ     Const CRNRCHIP = 0.4                    'Ｌ字欠け率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim dblThe As