Эффект бегущего пунктира

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

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

Эффект бегущего пунктира (Макросы/Sub)

cerber412

Дата: Суббота, 25.02.2017, 17:03 | Сообщение № 1

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

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

Сообщений: 131

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

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

Excel 2013

Добрый вечер уважаемые программисты.
Помогите разобраться.

Как сделать на линии - эффект "бегущего пунктира" ?
Бегущий пунктир - это как бегущая строка в тексте.
Мне видится следующее решение: это повторяющаяся смена видимости двух пунктирных линий, выполненных с небольшим смещением.

То есть сперва видима одна линия - 1 секунду. Затем она исчезает и появляется та линия, которая немного смещена - тоже на 1 секунду.
Затем процесс повторяется до бесконечности.

К сообщению приложен файл: 4446.xls (33.0 Kb)

Ответить

bmv98rus

Дата: Суббота, 25.02.2017, 18:41 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4113

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

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

Excel 2013/2016

Про анимацию например тут почитайте.
От сюда можно оттолкнуться по вопросу цикла и паузы.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Udik

Дата: Суббота, 25.02.2017, 19:10 | Сообщение № 3

Группа: Друзья

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

Сообщений: 1588

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

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

Excel 2016 х 64

Вот так можно
[vba]

Код

Option Explicit
Dim fRunStop As Byte

Public Sub tt()
Static p As Byte
p = 1 - p
If p = 0 Then
ActiveSheet.Shapes("line2").Visible = False
ActiveSheet.Shapes("line3").Visible = True
Else
ActiveSheet.Shapes("line2").Visible = True
ActiveSheet.Shapes("line3").Visible = False
End If
If fRunStop < 1 Then Application.OnTime Now() + TimeSerial(0, 0, 1), "tt"
End Sub

Public Sub stopTT()
fRunStop = 1
End Sub

[/vba]