Анимация движения и преобразования

@Але-Дашкова · Регистрация: 20.03.2013

Author24 — интернет-сервис помощи студентам

Задание, как я его поняла:

"Фигура движется по прямоугольной траектории, начиная путь с левого нижнего угла, и перемещается сначала по-горизонтали, а потом по-вертикали. В ходе движения она плавно преобразуется в другую фигуру, завершая преобразование при достижении противоположного по-диагонали угла. Затем она возращается в левый нижний угол, двигаясь опять сначала по-горизонтали, а потом по-вертикали, и этот процесс опять сопровождается преобразованием фигуры. Нужно задействовать 3 фигуры: квадрат, треугольник, круг. Продолжать анимацию до повторения первоначального состояния (квадрат в левом нижнем углу)."
"Использовать VBA Excel, и применять только автофигуры."

Надеюсь, понятно объяснила)). Если кто поможет, буду очень рада...

@Sasha_Smirnov · 10.10.2013, 12:10

Как она маняща, эта визуализация контрольных точек! Жаль, пока нет офиса (на ноуте).

А в моей Телеге-лайт (для Word) ничего такого досадного не увидели?

@KoGG · 10.10.2013, 13:36

Визуально приятнее, когда в Телеге-лайт нет квадратиков выделения фигур, фрагмент процедуры CycloGraf:

Visual Basic

'генерация узловых точек
With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(0), y(0))
    For Nn = 1 To k * N * 20 - 1
    .AddNodes msoSegmentCurve, msoEditingAuto, x(Nn), y(Nn)
    Next Nn
    .AddNodes msoSegmentCurve, msoEditingAuto, x(0), y(0)
    'задание свойств фигуры
    With .ConvertToShape.Fill
        .Transparency = 0.5 '1 - прозрачная; 0 < .Transparency < 1 - так себе
        .ForeColor = RGB(255 * Кадр / UBound(x) * 20, 40, 90) 'доля R растёт по кругу
    End With
End With
Selection.Collapse 'сброс выделения

@Sasha_Smirnov · 10.10.2013, 16:01

Предпечатный просмотр (Ctrl-F2 перед запуском), насколько я помню, даёт тот же эффект + ускорение.

Спасибо, KoGG, за неравнодушное испытание и за идею кода!

@KoGG · 11.10.2013, 15:38

To Sasha_Smirnov :Телега-лайт сподвигла меня на это:
Цветы и циклоиды.

@Sasha_Smirnov · 12.10.2013, 01:43

Это здорово! И лишний раз иллюстрирует то, что есть программирование для души!

В принципе тема Дашковой получила великолепное развитие.

Не по теме:

Слава ТС!

Добавлено через 8 часов 25 минут
Я тоже в своё время не удержался от вариаций на тему циклоид: vk.com/album12953927_100190731

@KoGG · 12.10.2013, 17:27

Красиво. Только кода не хватает

@Sasha_Smirnov · 12.10.2013, 18:16

Я не хранил код для каждого рисунка. Просто менял что-то в той же циклоиде.

Раз это может нравится, то вот ещё цветник: http://vk.com/album6344674_93306995

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.10.2013, 12:10	21
	Как она маняща, эта визуализация контрольных точек! Жаль, пока нет офиса (на ноуте). А в моей Телеге-лайт (для Word) ничего такого досадного не увидели? 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.10.2013, 16:01	23
	Предпечатный просмотр (Ctrl-F2 перед запуском), насколько я помню, даёт тот же эффект + ускорение. Спасибо, KoGG, за неравнодушное испытание и за идею кода! 0

@KoGG 5606 / 1592 / 412 Регистрация: 23.12.2010 Сообщений: 2,382 Записей в блоге: 1
	12.10.2013, 17:27	26
	Красиво. Только кода не хватает 0

@Але-Дашкова 381 / 4 / 3 Регистрация: 20.03.2013 Сообщений: 43
		1
	Анимация движения и преобразования 02.10.2013, 13:27. Показов 10569. Ответов 26 Метки нет (Все метки) Задание, как я его поняла: "Фигура движется по прямоугольной траектории, начиная путь с левого нижнего угла, и перемещается сначала по-горизонтали, а потом по-вертикали. В ходе движения она плавно преобразуется в другую фигуру, завершая преобразование при достижении противоположного по-диагонали угла. Затем она возращается в левый нижний угол, двигаясь опять сначала по-горизонтали, а потом по-вертикали, и этот процесс опять сопровождается преобразованием фигуры. Нужно задействовать 3 фигуры: квадрат, треугольник, круг. Продолжать анимацию до повторения первоначального состояния (квадрат в левом нижнем углу)." "Использовать VBA Excel, и применять только автофигуры." Надеюсь, понятно объяснила)). Если кто поможет, буду очень рада... 0

@KoGG 5606 / 1592 / 412 Регистрация: 23.12.2010 Сообщений: 2,382 Записей в блоге: 1
	11.10.2013, 15:38	24
	To Sasha_Smirnov :Телега-лайт сподвигла меня на это: Цветы и циклоиды. 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	12.10.2013, 01:43	25
	Это здорово! И лишний раз иллюстрирует то, что есть программирование для души! В принципе тема Дашковой получила великолепное развитие. Не по теме: Слава ТС! Добавлено через 8 часов 25 минут Я тоже в своё время не удержался от вариаций на тему циклоид: vk.com/album12953927_100190731 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	12.10.2013, 18:16	27
	Я не хранил код для каждого рисунка. Просто менял что-то в той же циклоиде. Раз это может нравится, то вот ещё цветник: http://vk.com/album6344674_93306995 0