Загрузка файлов jpg с временным интервалом. - Страница 2

Вход

Регистрация

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

= Мир MS Excel/Загрузка файлов jpg с временным интервалом. - Страница 2 - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка файлов jpg с временным интервалом. (Макросы/Sub)

Загрузка файлов jpg с временным интервалом.

KuklP

Дата: Суббота, 16.09.2017, 22:47 | Сообщение № 21

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Мона даже поприкалываться:
[vba]

Код

Public Sub www()
    Static p&
    Dim c As Range
    p = IIf(p > 2, 1, p + 1)
    Application.ScreenUpdating = 0
    Me.DrawingObjects.Delete
    With Pictures.Insert(ThisWorkbook.Path & "\" & p & ".jpg")
    .Left = 300 * Rnd * 3: .Top = 10 * p * Rnd * 20: End With
    Application.ScreenUpdating = -1
    Application.OnTime Now + TimeValue("00:00:01"), "Лист1.www"
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

odeon16

Дата: Суббота, 16.09.2017, 23:52 | Сообщение № 22

Группа: Пользователи

Ранг: Участник

Сообщений: 85

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

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

Excel 2013

KuklP, а как остановить этот макрос ?
stopSlideshow выдает ошибку "400".

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка файлов jpg с временным интервалом. (Макросы/Sub)

Страница 2 из 2
«
1
2