Плавное затухание и исчезновение через 10 сек картинки

srt2012

Гость

13.12.2012 23:01:28

Добрый вечер, профессионалы. Прошу помощи в следующем: На данном сайте я нашел нужный мне макрос. При открытии книги появляется картинка, которая отображается 5 сек и резко исчезает. Как сделать так, чтобы картинка плавно затухала и исчезала например на протяжении 10 сек. Всем спасибо за ответы и помощь.

Прикрепленные файлы

post_385216.xls (63.5 КБ)

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 13.12.2012 23:06:20 Ищем по форуму: полупрозрачная форма, форма с изменяемой прозрачностью. Макросом с заданной частотой меняем её прозрачность, а в конце выгружаем. P.S. А для чего это?

srt2012

Гость

13.12.2012 23:29:49

Спасибо,Юрий М что послали в верном направлении для поиска .. :) Это нужно для поздравления коллег с наступающими праздниками.
Однако я на форуме нашел только форму с управляемой прозрачностью, где можно вручную изменять уровень от 255 до 0. А вот чтобы это делалось автоматически не удалось найти.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 13.12.2012 23:44:49 Так я же написал, что следует делать дальше с этой формой :-)

srt2012

Гость

13.12.2012 23:56:56

Куда послали - я уже вернулся с вопросом :)

Юрий М. Удалось найти он такой макрос: Но куда его вставить для правильного выполнения и как задать время что 2 секунды затухания?

Function GetTickMilliSecond&()
Application.Volatile True
GetTickMilliSecond& = GetTickCount
End Function

Спасибо Вам.

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

14.12.2012 00:10:42

2 секунды для поздравления мало - не успеют прочитать :-)
На скорую руку так: см. тот самый фай с небольшой доработкой. Но для более плавного изменения прозрачности вместо Application.Wait, думаю, лучше использовать Sleep или какой-нибудь таймер и поменять шаг.

Прикрепленные файлы

post_385225.xls (29 КБ)

srt2012 Гость	#7 14.12.2012 00:20:10 Спасибо Вам,Юрий М за помощь. Однако с моими супер знаниями :( объединить мою форму с Вашим результатом нереально. Я благодарю Вас за помощь. С другой стороны - ну пусть и так будет :) Удачи Вам

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 14.12.2012 00:29:03 Вот на Вашем файле. Прикрепленные файлы post_385227.xls (61 КБ)

srt2012 Гость	#9 14.12.2012 00:32:35 Что тут скажешь,Юрий М. Профессионализм на грани фантастики. И когда этот профессионализм сочетается с замечательной чертой характера - помощью, это просто чудесно. Я благодарю Вас бесконечно.

Читают тему