اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

  • Like 3
قام بنشر

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

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

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

566ee6274eec1_1.gif.0e855274ae0a594ceab0

  • Like 1
قام بنشر
12 ساعات مضت, سعد عابد said:

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

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

وفقكم الله

 

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

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

تقبل تحياتى

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

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

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

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

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

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

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

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

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

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

566ee6274eec1_1.gif.0e855274ae0a594ceab0

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

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

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

  • Like 1
قام بنشر

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information