Страницы: 1
RSS
Анимация фейерверка поверх окна при условии одной ячейки
 
Возможно это не серьездно но хотелось бы внести в работу немного радости при выборе "в архиве" воспроизводился фейвер как в "пасьянс паук".
Дело в том что когда сдают документы в архив там прям праздник
Изменено: radmirka666 - 01.02.2018 15:42:18
 
У них будет еще больше радости, если при приеме документов оу них будет открываться пасьянс Паук, танчики, Instagram и ВКонтакте, при этом греметь Турецкий марш  и с потолка будут сыпаться цветы :)
 
)))))))))))))))))))))))))))))))))))))))))))))))))
 
Изучайте
Согласие есть продукт при полном непротивлении сторон
 
))))))))))Спасибо)))
 
Ребят изучил. получилось. но до меня чет все равно не доходит. как сделать данную анимацию прозрачной и чтоб она выходила только при условии. К сожалению файл не получается прикрепить, но оно такого же вида как и по ссылке "Изучайте"
 
Проделайте операции по ссылке http://www.cyberforum.ru/vba/thread1504115.html от Казанский. В модуль листа что-то типа. Короче поиграйтесь со свойствами
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1:A10]) Is Nothing And Target.Count = 1 Then
        If Target = "В архив" Then
            Me.ShockwaveFlash1.Visible = True
        Else
            Me.ShockwaveFlash1.Visible = False
        End If
    End If
End Sub

Согласие есть продукт при полном непротивлении сторон
 
Спасибо большое))) Очень рад вашей помощи
 
radmirka666, сделайте рандомную заливку ячеек рандомным  цветом на видимой области экрана, порадуйте пользователя и поддержку, в которую пойдут звонки с вопросом, у меня эксель взбесился.
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх