すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 回転する長方形描画マクロ()     Const RECTCXPS = 180                              '描画の中心位置　X     Const RECTCYPS = 150                              '                        Y     Const RECTWIDT = 80                               '長方形の幅     Const RECTHEIG = 150                              '長方形の高さ     '     Const RECTCONT = 10                              '長方形の数/一周     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, dblRd As Double    Dim intXp As Integer, intYp As Integer    Dim intWd As Integer, intHt As Integer    Dim intXa As Integer, intYa As Integer, varCl As Variant    '     'カラーデータ///////