すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 回転する三角形描画マクロ()     Const TRIACXPS = 200                '描画の中心位置　X     Const TRIACYPS = 150                '                        Y     Const TRIAWIDT = 40                 '三角形の幅     Const TRIAHEIG = 80                  '三角形の高さ     '     Const TRIACONT = 24                 '三角形の数/一周     '---------------------------------------------------------------------------     Dim Ip As Integer     Dim intXp As Integer, intYp As Integer    Dim intAng As Integer, dblRd As Double     '     dblRd = (4 * Atn(1)) / 180     intAng = 360 \ TRIACONT     For Ip = 0 To TRIACONT - 1         intXp = (TRIAHEIG / 2) * Cos(dblRd * (intAng * Ip)) + TRIACXPS         intYp = (