У нас вы можете посмотреть бесплатно Create an Amazing Effect Using Userform and Image MouseMove Event in Excel Using Macro или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
💡 Source Code Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&) Dim b As Boolean Sub image_lab(ByVal ind As Byte) Dim i As Byte b = -1 Controls("Label" & ind).Visible = -1 For i = 0 To 150 Step 10 Controls("Label" & ind).Width = i DoEvents Sleep 1 Next i End Sub Sub convis() Dim contr As Control For Each contr In Me.Controls If TypeOf contr Is MSForms.Label Then contr.Visible = 0 contr.Width = 0 End If Next contr End Sub Private Sub UserForm_Activate() Call convis End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) b = 0 Call convis End Sub Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(1) End Sub Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(2) End Sub Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(3) End Sub Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(4) End Sub Private Sub Image5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(5) End Sub Private Sub Image6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(6) End Sub Private Sub Image7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If b = 0 Then Call image_lab(7) End Sub ------------------------------------------------------------------------------------------ Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms 🥰Thank you for the donation. I am deeply grateful for your help!🥰 ------------------------------------------------------------------------------------------ #excel #msexcel #msexceltutorial #msexcelcourse #vba #vbatutorial #excelvba #fulltutorial #excelvbatutorial #microsoftexceltutorial #tutorial #exceltutorial #advancedexcel #advancedexceltraining #tutor #exceltutor #exceltutoring #exceltutoringonline #onlineexceltutoring #algorithm #algorithms #programming #program #script #vbamacro #vbamacros #usingmacro #veryuseful #useful #veryusefulmacro #freeeducation #freeprogramming #freelancer #excelfreelancer #vbafreelancer #freelanceservices #vbauserform #excelvbauserform #mousemove #mousemoveevent #vbauserformevent #vbaimageevent #animatedbuttons #resizablebuttons #vbaanimtedeffects