Подскажите пожалуйста где ошибка, хочу повернуть кривую X Y на 1 градус к примеру по часовой стрелке:
Код |
---|
For i = FirstPoint To LastPoint Step 1 f = 1 * (Pi / 180) X = PadPage.Range("N" & i).Value * ((PadPage.Range("N" & i).Value * Cos(f)) - (PadPage.Range("O" & i) * Sin(f))) Y = PadPage.Range("O" & i).Value * ((PadPage.Range("N" & i).Value * Sin(f)) + (PadPage.Range("O" & i) * Cos(f))) PadPage.Range("N" & i).Value = X PadPage.Range("O" & i).Value = Y Next i |