すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 十二角形模様描画マクロ()     Const DODECTRX = 200　　 '描画中心位置Ｘ     Const DODECTRY = 180 　　'　　　　　　Ｙ     '     Const DODERADI = 100       '十二角形半径     Const DODEDVCN = 10        '線描画　本数     Const DODESTEP = (DODERADI / DODEDVCN)     '     Const DODELNCL = &H8B8B00      '線の色(LightCyan)     Const DODELNWE = 1                 '線の太さ     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intSxp As Integer, intSyp As Integer     Dim intExp As Integer, intEyp As Integer     Dim sngSit As Single     '     '     sngSit = (Atn(1) / 45) * (360 / 12)     For Ip = 0 To 11         intSxp = DODERADI * Cos(