すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 青海波描画マクロ()   Const BWAVLFT = 100 　　　　　　　'描画開始位置Ｘ    Const BWAVTOP = 100 　　　　　　  '                  Ｙ    Const BWAVCOL = 6                         '列数    Const BWAVROW = 8                       '行数    Const BWAVRAD = 8                        '半径間隔    '---------------------------------------------------------------------------    Dim Ip As Integer, Jp As Integer, Kp As Integer    Dim iCxp As Integer, iCyp As Integer    Dim iRad As Integer    Dim iAng(1) As Integer, jAng(1) As Integer   '   For Ip = 0 To BWAVROW - 1        iCyp = BWAVLFT + (BWAVRAD * 3) + (BWAVRAD * 3 / 2) * Ip        '描画角度指定(最終行は半円)        If Ip < BWAVROW - 1 Then iAng(0) = -150: iAn