すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 斜め45度に並ぶ矢印描画マクロ()     Const STARXPOS = 100                    '起点位置　X     Const STARYPOS = 250                    '               Y     Const ARRWDIRE = 45                     '矢印の方向(角度)     Const ARRWCONT = 10                   '矢印の数     Const ARRWPITC = 25                     '矢印のピッチ     Const ARRWWIDT = 15                   '矢印の幅     Const ARRWHEIG = 25                    '矢印の高さ     Const ARRBAPHT = 0.5                   '矢印の高さに対する棒の太さ比率     Const ARRHDPHT = 0.5                   '矢印の高さに対する頭の部分比率    '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer     Dim intXp As Integer, intYp A