Доброго вечера.
Подскажите - как макросом пошагово двигать картинку 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 раз, потом еще один раз - чтобы со стороны было видно что картинка ползет вправо.
