すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 丸く並べるベジェ曲線描画マクロ()     Const CIBZOCXP = 180 　　　'外円の中心位置Ｘ     Const CIBZOCYP = 190 　　　'　 Ｙ     Const CIBZICXP = 160　　　  '内円の中心位置Ｘ     Const CIBZICYP = 160 　　　 '　 Ｙ     '     Const CIBZLNCN = 36           '線の数     Const CIBZORAD = 100        '外円の半径     Const CIBZIRAD = 25           '内円の半径     '     Const CIBZOMIS = 30          'ベジエ曲線ずれ     Const CIBZIMIS = 15     '     Const CIBZLNCL = &H3C14DC    '線の色     Const CIBZLNWE = 2                 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim intAng As Integer, sngRdi As Single     Dim sngSit(2) As Single     Dim