すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 虹描画マクロ()     Const RNBWLEFT = 80 　　　'描画開始位置Ｘ     Const RNBWTOPP = 80 　　  '　　　　　　Ｙ     '     Const RNBWIRAD = 20         '内側の半径     Const RNBWRDSP = 3          '色の間隔幅     '横-間隔     Const RNBWVPIT = _           (RNBWIRAD + RNBWRDSP * 7) * 2 + 5     '縦-間隔     Const RNBWHPIT = _           (RNBWIRAD + RNBWRDSP * 7) * 1 + 5     Const RNBWCOLS = 4          '横/描画数     Const RNBWROWS = 4         '縦/描画数     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim Kp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intRnd As Integer, lngCol(6) As Long     '     '*虹の色を指定（内側→→外側）/紫-青