すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 御召十模様描画マクロ()     Const CCRSLEFT = 90 　　　'描画開始位置Ｘ     Const CCRSTOPP = 80 　　  '　　　　　　Ｙ     '     Const CCRSVSPC = 20         '横-間隔     Const CCRSHSPC = 20         '縦-間隔     '     Const CCRSCSSZ = 16         '十字形サイズ     Const CCRSCISZ = 10          '円形サイズ     '     Const CCRSCOLS = 10         '横/描画数     Const CCRSROWS = 9         '縦/描画数     '     Const CCRSCRAJ = 0.325    '十字形属性     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intCxp As Integer, intCyp As Integer     Dim lngCol As Long     '     lngCol = RGB(30, 144, 255)         '←塗りつぶし色     For Jp = 0 To CCRSROWS - 1