すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 回転する五角形描画マクロ()     Const PENTLEFT = 100                               '描画の開始位置　X     Const PENTTOPP = 80                                '                    　 Y     Const PENTLENG = 200                              '五角形の一辺の長さ     Const PENTSTPP = 0.9                               '五角形の縮小率     Const PENTANGL = 7                                 '五角形の角度     Const PENTCONT = 25                               '五角形の数     '---------------------------------------------------------------------------     Dim Ip As Integer, intLng As Integer     Dim intCXp As Integer, intCYp As Integer     '     intLng = PENTLENG \ 2     intCXp = PENTLEFT + intLng     intCYp =