VBAでは角度はどっち回りですか？

質問

VBAでインボリュート曲線を描画するプログラムを書いたのですがなぜか時計回りになってしまいます。
自分は角度は3時の方向から反時計回りで増えていくと思っているのですがVBAでは逆回転なのでしょうか。
どっち回りか教えてください。

参考に作ったプログラムを書きます

Sub インボリュート()

'---------変数の宣言
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim pai As Double
Dim R As Integer '半径

Dim L As Double

'-----値を初期設定
R = 50　
　　L = 0
pai = 3.1415926535897

For θ = 0 To 3 * pai Step (pai / 1000)
L = θ * R
x1 = R * Cos(θ)
y1 = R * Sin(θ)
x2 = x1 + L * Cos(θ + 3 / 2 * pai)
y2 = y1 + L * Sin(θ + 3 / 2 * pai)

'---------シート上に図形を描画する
ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x1, 500 + y1, 1, 1
ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x2, 500 + y2, 1, 1

Next θ

End Sub

ちなみにExcel2000です

回答No.2

redfox63 · ベストアンサー

角の回転方向は反時計回りですよ

一般の直交座標系ですとY座標は上方へ行くほど値が増すようにとられます
これと異なりコンピューター上では下方へ行くほど値が増すようになっている場合が多いです

この違いを考慮していないとX軸で反転した図形になってしまいます

ためしに Sin波などを描いてみましょう
最初に谷、次に山といった波形になるはずです

ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x1, 500 + y1, 1, 1
ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x2, 500 + y2, 1, 1
を
ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x1, 500 - y1, 1, 1
ActiveSheet.Shapes.AddShape msoShapeOval, 500 + x2, 500 - y2, 1, 1
といった具合に計算結果のY座標を 基準の500から減算してみましょう

お礼

コンピューターでは上下逆なんですね。
分かりました。
早速直してみます。
回答ありがとうございました。

回答No.1

Sinogi

座標（0,0）は左上なのでは？