すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 三つ巴模様描画マクロ()     Const TOMOLEFT = 90                     '描画開始位置Ｘ     Const TOMOTOPP = 80                    '　　　　　　Ｙ     '     Const TOMOSIZE = 12                    '内側円直径     Const TOMORADI = TOMOSIZE / 2  '内側円半径     Const TOMOHZSP = 25                   '水平間隔     Const TOMOVTSP = 70                   '垂直間隔     Const TOMOCOLS = 4                    '横 描画数     Const TOMOROWS = 6                   '縦 描画数     '     Const TOMOLNWE = 1                    '線の太さ    '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer, lngCol As Long     Dim intCxp As Integer, intCyp As In