散布図の表示がおかしい

質問

エクセルで下記のデータを角度６０度反時計方向に回転させたデータを表示するコードを組んだのですが、おかしな表示になります。
どこがいけないのでしょうか。データは矢印の形です。
問題点
１）回転後矢印の片側の矢の長さがおかしい
２）回転角度が４５°もいっていない。

データ
　5　　｜　　6
-----------------
0.97　 |　　0.26
0 | 0
0 | 0
1.5 | 0
1.5 | 0
0 | 0
0 | 0
0.97 | -0.26
0.97 | -0.26
0 | 0
0 | 0
-10 | 0

sita1 = 64　* Pi / 180
For I = 1 To 12
Cells(I + 2, 5).Value = Cells(I , 5).Value * Cos(sita1) - Cells(I , 6).Value * Sin(sita1)
Cells(I + 2, 6).Value = Cells(I , 5).Value * Sin(sita1) + Cells(I , 6).Value * Cos(sita1)
Next I

回答No.1

noname#74310 · ベストアンサー

1)グラフの座標のスケール(Min,Max)を同じにする
2)
sita1 = 64　* Pi / 180
For I = 1 To 12
CZ=Cos(sita1)
SZ=Sin(Sita1)
X = Cells(I , 5).Value * CZ - Cells(I , 6).Value * SZ
Y = Cells(I , 5).Value * SZ+ Cells(I , 6).Value * CZ
Cells(I , 5).Value = X
Cells(I , 6).Value = Y
Next I

回答No.2

noname#74310

グラフの座標のスケールをX軸とY軸で同じにする

お礼

ありがとうございました。助かりました。