すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 角丸四角形模様描画マクロ()     Const RDCNLEFT = 90　　　 '描画開始位置Ｘ     Const RDCNTOPP = 80　　　'　　　　　　Ｙ     '     Const RDCNSWID = 36　　　'図形幅     Const RDCNSHEI = 30　　　 '図形高さ     '     Const RDCNVSPC = 8 　　　 '横-間隔     Const RDCNHSPC = -12　　  '縦-間隔     Const RDCNCOLS = 6 　　　 '横-描画数     Const RDCNROWS = 8 　　　'縦-描画数     '     Const RDCNLNWE = 1.5　　 '線の太さ     Const RDCNADJU = 0.33　　'角の丸み度     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim lngCol As Long     '     lngCol = RGB(255, 99, 71)            '←線色     For Jp = 0 To RDCNROWS - 1         intDyp = R