Show Picture on Mouse Hover with VBA

[Yasser Fathi Albanna]

السلام عليكم ورحمة الله وبركاته

أحبائى فى الله تقبلوا جميعا تحياتى

أقدم لكم اليوم كود لعله يفيد

Show Picture on Mouse Hover with VBA

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim sh As Worksheet
Set sh=Sheet1
 
      If sh.Pictures("Smallman").Visible=False Then 'Smallman is the name of the pic
       sh.Pictures("Smallman").Visible=True
      End If
    sh.Shapes("Label1").Visible=True 'This line is the most important (No Delete)
End Sub
 
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim sh As Worksheet
Set sh=Sheet1
 
     If sh.Pictures("Smallman").Visible=True Then 'Smallman is the name of the pic
       sh.Pictures("Smallman").Visible=False
     End If
     sh.Shapes("Label1").Visible=False 'This line is the most important (No Delete)
End Sub

 

Private Sub CommandButton1_Click() 'Excel VBA for command button add.
    MsgBox "Your Macro Here"
End Sub

 

 

Mouse Over the Command Button.rar

[saad abed]

اخى الحبيب م/ياسر فتحى

اكواد ممتازة ومفيده شكرا لك

وفقكم الله

 

[مختار حسين محمود]

أخى الحبيب ياسر فتحى  بارك الله فيك

ما شاء الله عليك  نشاط ملحوظ فى عز البرد  !!

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الأكواد الجميلة و الملفات الرّائعة

فائق إحتراماتي

[Yasser Fathi Albanna]

12 ساعات مضت, سعد عابد said:

اخى الحبيب م/ياسر فتحى

اكواد ممتازة ومفيده شكرا لك

وفقكم الله

 

أخى الحبيب الغالى أ / سعد عابد

يسعدنى ويشرفنى دائما مرورك الكريم

تقبل تحياتى

2 ساعات مضت, مختار حسين محمود said:

أخى الحبيب ياسر فتحى  بارك الله فيك

ما شاء الله عليك  نشاط ملحوظ فى عز البرد  !!

أخى الحبيب أستاذى ومعلمى القدير / مختار حسين

مجرد مرورك على موضوعاتى شرف لى

تقبل خالص تحياتى وتقديرى

منذ ساعه, عبد العزيز البسكري said:

السّلام عليكم و رحمة الله و بركاته

ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الأكواد الجميلة و الملفات الرّائعة

فائق إحتراماتي

حبيبى أستاذى الغالى على قلبى / عبد العزيز

دائما تسعدنى وتشرفنى بكلماتك الجميلة التى تدل على نبل أخلاقك الكريمة

تقبل خالص تحياتى وتقديرى لشخصك الكريم

[الشيباني1]

اخي العزيز  مجهود رائع وكود مفيد  هل يمكن اجراء تعديل على الكود ليستخدم مع 25 ماده رئيسيه تقريبا ويظهر صورها عند وضع الماوس على اسماءها مع الشكر