すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 梅鉢文様描画マクロ()     Const PULMLEFT = 80                    '描画開始位置Ｘ     Const PULMTOPP = 100                 '　　　　　　Ｙ     '     Const PULMMRAD = 4                    '真ん中●半径     Const PULMLRAD = 6                     '真ん中○半径     Const PULMPRAD = 16                   '花半径     Const PULMHRAD = 6                     'まわり○半径     '     Const PULMROWS = 3                    '描画数(行)     Const PULMCOLS = 4                     '描画数(桁)     Const PULMROLN = 50                   '縦方向間隔     Const PULMCOLN = 60                   '横方向間隔     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer