Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Эффект бегущего пунктира - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Эффект бегущего пунктира (Макросы/Sub)
Эффект бегущего пунктира
cerber412 Дата: Суббота, 25.02.2017, 17:03 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

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

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

То есть сперва видима одна линия - 1 секунду. Затем она исчезает и появляется та линия, которая немного смещена - тоже на 1 секунду.
Затем процесс повторяется до бесконечности.
К сообщению приложен файл: 4446.xls (33.0 Kb)
 
Ответить
СообщениеДобрый вечер уважаемые программисты.
Помогите разобраться.

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

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

Автор - cerber412
Дата добавления - 25.02.2017 в 17:03
bmv98rus Дата: Суббота, 25.02.2017, 18:41 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

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


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеПро анимацию например тут почитайте.
От сюда можно оттолкнуться по вопросу цикла и паузы.

Автор - bmv98rus
Дата добавления - 25.02.2017 в 18:41
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]
К сообщению приложен файл: 0t.xls (48.0 Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеВот так можно
[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]

Автор - Udik
Дата добавления - 25.02.2017 в 19:10
gling Дата: Суббота, 25.02.2017, 19:39 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Варианты готовых решений. Автор мне неизвестен.
К сообщению приложен файл: _max_elt2.xlsm (59.3 Kb)


ЯД-41001506838083
 
Ответить
СообщениеВарианты готовых решений. Автор мне неизвестен.

Автор - gling
Дата добавления - 25.02.2017 в 19:39
cerber412 Дата: Суббота, 25.02.2017, 20:49 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
gling, это не то.
Мне нужна простая смена видимости двух объектов - как у Udik.
Только у него - лишь в экселе2003 работает.
 
Ответить
Сообщениеgling, это не то.
Мне нужна простая смена видимости двух объектов - как у Udik.
Только у него - лишь в экселе2003 работает.

Автор - cerber412
Дата добавления - 25.02.2017 в 20:49
cerber412 Дата: Суббота, 25.02.2017, 20:51 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, все работает .

Спасибо
 
Ответить
СообщениеUdik, все работает .

Спасибо

Автор - cerber412
Дата добавления - 25.02.2017 в 20:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Эффект бегущего пунктира (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!