Доброго вечера.
Подскажите - как макросом пошагово двигать картинку 10 раз, с шагом = 1 в автоматическом режиме ?
Я написал вот такой простой цикл
Но он что-то не работает - сдвигает картинку разом на все 10 шагов.
Получается - разовый скачок, а не постепенное движение.
А нужно - чтобы, макрос сработал 1 раз, потом еще один раз - чтобы со стороны было видно что картинка ползет вправо.
Подскажите - как макросом пошагово двигать картинку 10 раз, с шагом = 1 в автоматическом режиме ?
Я написал вот такой простой цикл
Код |
---|
Sub Макрос1() Dim i As Long For i = 1 To 10 Step 1 ActiveSheet.Shapes.Range(Array("Oval 1")).IncrementLeft 1.1 Next i End Sub |
Получается - разовый скачок, а не постепенное движение.
А нужно - чтобы, макрос сработал 1 раз, потом еще один раз - чтобы со стороны было видно что картинка ползет вправо.