Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросом пошагово двигать картинку
 
#1
23.01.2019 20:39:52
Доброго вечера.
Подскажите - как макросом пошагово двигать картинку 10 раз, с шагом = 1 в автоматическом режиме ?

Я написал вот такой простой цикл
Код
?
1
2
3
4
5
6
7
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
Но он что-то не работает - сдвигает картинку разом на все 10 шагов.
Получается - разовый скачок, а не постепенное движение.

А нужно - чтобы, макрос сработал 1 раз, потом еще один раз - чтобы со стороны было видно что картинка ползет вправо.
 
 
 
#2
23.01.2019 20:43:27
посмотрите пример кода здесь
https://excelvba.ru/code/ZoomImages
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
23.01.2019 21:04:50
Димитрий2, Ваш код сдвинет картинку 10 раз. Но очень быстро и Вы увидите только конечный результат. Добавьте небольшую паузу после каждого шага цикла.
 
 
 
#4
23.01.2019 21:22:07
Игорь, мне надо не уменьшать или увеличивать, а сдвигать вправо.
 
 
 
#5
23.01.2019 21:24:03
Цитата
Юрий М написал:
Добавьте небольшую паузу после каждого шага цикла
и doevent если память свою я не прокурил.
По вопросам из тем форума, личку не читаю.
 
 
 
#6
23.01.2019 21:52:21
БМВ, куда добавлять DoEvents ?
 
 
 
#7
23.01.2019 22:01:37
перед паузой
По вопросам из тем форума, личку не читаю.
 
 
 
#8
23.01.2019 22:09:21
БМВ, так все - я понял зачем это нужно.
Спасибо за пояснение.
 
 
 
#9
23.06.2022 17:40:15
Здравствуйте, уважаемые знатоки планеты Excel. Пожалуйста, подскажите, как должен выглядеть окончательно макрос, написанный Дмитрием2. Как он выглядит с DoEvents и паузой? У меня на листах с отчётами есть иконки автотранспорта. По макросу из сообщения 1 иконка смещается вправо, похоже, как на 1 шаг. Как прописать путь движения до конца страницы? Возможен ли автозапуск макроса при каждом входе на страницу? Извините, свой рабочий файл с примером сюда добавить нет возможности.  
 
 
 
#10
23.06.2022 21:38:23
Цитата
написал:
Возможен ли автозапуск макроса при каждом входе на страницу?
Да возможен. Посмотрите варианты движений, может используете что и для себя. Скачал давно, где не помню.
 
 
 
#11
24.06.2022 04:55:47
Цитата
написал:
Цитата
написал:
Возможен ли автозапуск макроса при каждом входе на страницу?
Да возможен. Посмотрите варианты движений, может используете что и для себя. Скачал давно, где не помню.
Благодарю за файл с примерами. Тут надо посидеть, поразбираться.  
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...