Разное кол-во вращений для 2 объектов

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Разное кол-во вращений для 2 объектов - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разное кол-во вращений для 2 объектов (Макросы/Sub)

Разное кол-во вращений для 2 объектов

Asretyq

Дата: Четверг, 20.07.2017, 09:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток! Никак не могу сообразить как выполнить процедуру вращения для двух объектов при условии что объект 12 вращается 360*1 и объект 11 вращается 360 *2, действие должно происходить одновременно! Надеюсь нет смысла выкладывать файл и поэтому только код обозначаю.

[vba]

Код

For u = 0 To 360 * 2 Step 5
Tik = 1000000
ActiveSheet.Shapes("12").Rotation = u - 20
ActiveSheet.Shapes("11").Rotation = u + 99
For t = 1 To Tik: Next t
Next u
End Sub

[/vba]