Эллипс по параметрам

[rzrwolf]

Прошу помощи: задача состоит в том, чтобы в Экселе начертить эллипс по заданным большой и малой полуоси. так же дается отклонение полуосей от осей x и y...

Собственно вопрос: а как это сделать? У меня получалось только кусок параболы построить...

[EducatedFool]

Нарисовать эллипс в Excel можно примерно таким кодом:

Sub test()
    h = [a1]    ' высота эллипса берётся из ячейки А1
    w = [a2]    ' ширина эллипса берётся из ячейки А2
    Dim sh As Worksheet, o As Shape: Set sh = ActiveSheet
    With sh.Shapes
        .SelectAll: Selection.Delete
        Set o = .AddShape(msoShapeOval, 200, 100, w, h)
        o.Fill.ForeColor.RGB = vbRed
    End With
End Sub

Ну, или, то же самое, только короче:

Sub test2()
    h = 50: w = 120: ActiveSheet.Shapes.AddShape(msoShapeOval, 300, 300, w, h).Fill.ForeColor.RGB = vbGreen
End Sub

Основываясь на исходных данных Вашей задачи, получить ширину и высоту эллипса проблем не составит.

[rzrwolf]

Я понял, оказывается нужно использовать макросы...

Знаю их не очень... Потому хотел бы ещё спросить - а как этот эллипс сместить относительно оси х? Чтобы он стоял не в одном положении всегда, а менялся?

[EducatedFool]

См. вложение:

[rzrwolf]

Спасибо большое,

только я сейчас понял что не так выразился с отклонением... Сорри, нужно было так, чтобы ось эллипса отклонялась от положения параллельного оси Х на заданный угол (то есть чтобы эллипс вращался)

Не могли бы вы немного переделать пример, чтобы можно было задавать и такой параметр? Был бы вам очень благодарен.

[EducatedFool]

0000000000000000

[rzrwolf]

Огромное спасибо!!! Вы мне очень сильно помогли!