كود لادراج صورة داخل تعليق الخلية

كود لادراج صورة داخل تعليق الخلية

Insert a picture inside the comment

ادراج صورة داخل تعليق الخلية

أحيانا نحتاج فى بعض التوضيحات التى توضع داخل تعليقات الخلايا بورقة العمل صور توضيحية
أو أحيانا يمكننا اضافة صورة شخص ما للتأكيد على هوية الأسم وخاصة لو لدينا مثلا دليل هاتف
يمكننا وضع صورة صاحب الأسم داخل تعليق الخلية
يمكنك الاطلاع على نموذج متكامل لدليل الهاتف من هنا 

ومن خلال الشفرة البرمجية التالية يمكنك استخدامها لإضافة صورة تختارها أنت بالتعليق

امتداد الصور ( jpg , bmp , gif , png )

انظر الى الصورة التالية (اضغط على الصورة لتكبيرها):

الخطوات

1.  ضع الشفرة البرمجية داخل موديول Module
2.  قم بربطها بزر أو شكل ما حسب ما ترغب بورقة العمل
3.  قم بالوقوف على الخلية المراد اضافة صورة داخل التعليق بها
4.  اضغط على الزر ، سيظهر لك نافذة حوار
5.  قم بالبحث واختيار الصورة من خلال النافذة

الشفرة كالتالي :

'This macro was written by Mahmoud Zaki Elshrief
'Date 6/9/2018
'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub MyPic2Comment()
Set MyComment = ActiveCell.Comment
   If Not MyComment Is Nothing Then ActiveCell.Comment.Delete
      GetMyPic = Application.GetOpenFilename ("Pictures (*.jpg;*.bmp;*.gif;*.png), ", , " Select the image ")
          If GetMyPic = False Then Exit Sub
             With ActiveCell
                  .AddComment
                  .Comment.Visible = False
                  .Comment.Shape.Fill.UserPicture GetMyPic
             End With
End Sub