すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 半円組合せ模様描画マクロ()     Const SMCRCTRX = 220         '描画開始位置Ｘ     Const SMCRCTRY = 210         '　　　　　　Ｙ     Const SMCRRADI = 120         '描画半径     '     Const SMCRFICL = &H9314FF          '描画色(DeepPink)     '---------------------------------------------------------------------------    Dim Ip As Integer    Dim intSxp(2) As Integer, intSyp(2) As Integer    Dim intSan As Integer    '    '    For Ip = 0 To 3        Select Case Ip               Case 0: intSxp(0) = SMCRCTRX - SMCRRADI / 2                       intSyp(0) = SMCRCTRY - SMCRRADI                       intSxp(1) = SMCRCTRX - SMCRRADI / 4                       intSyp(1) = SMCRCTRY - SMCRRADI