すべてのカテゴリ

Option Explicit Option Base 0 ' Public Sub 足跡描画マクロ()     Const FTPRLFTL = 120             '左足-描画規準位置Ｘ     Const FTPRLFTR = 200             '右足-描画規準位置Ｘ     Const FTPRTOPL = 180            '左足-描画規準位置Ｙ     Const FTPRTOPR = 230            '右足-描画規準位置Ｙ     Const BEZIMAGN = 0.5            'ベジェ曲線データ倍率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer     Dim intDxp As Integer, intDyp As Integer     Dim intRad As Integer, intFht As Integer     Dim varBez As Variant, lngCol As Long     Dim sngBas(12, 1) As Single, sngDat(12, 1) As Single     Dim sngRnd As Single, sngSit As Single     '     'ベジェ曲線データ（足の裏）設定     varBez = Array(45, 92, 9