أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures

السلام عليكم ورحمة الله وبركاته هل فكرت يوماً في إدراج صور داخل تعليق ؟ ماذا لو كنت تريد إدراج مجموعة كبيرة من الصور د ..



05-10-2017 02:17 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5605
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 362
قوة السمعة : 15714
الاعجاب : 5908
 Online 


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

هل فكرت يوماً في إدراج صور داخل تعليق ؟ ماذا لو كنت تريد إدراج مجموعة كبيرة من الصور داخل التعليق مرة واحدة؟
اليوم أقدم لكم تنفيذ هذه الفكرة ، وهي إدراج مجموعة من الصور في تعليقات بناءً على قائمة بأسماء ملفات الصور توضع في العمود الأول.

تجهيز الملف : قم بإدراج أسماء ملفات الصور في النطاق A2:A7 على سبيل المثال (يمكن تغيير النطاق داخل الكود بما يتناسب مع ملفك)
* ملحوظة : أسماء ملفات الصور تكون ملحقة بالامتداد ، على سبيل المثال Pic01.JPG

لرؤية الروابط والمرفقات عليك الرد على الموضوع

قم بتغيير المسار من سطر تحديد المسار داخل الكود ، وفي النهاية قم بتنفيذ الكود ، ليقوم الكود بإدراج الصور في الخلايا المجاورة في العمود الثاني.
هذه صورة من الملف بعد تنفيذ الكود

لرؤية الروابط والمرفقات عليك الرد على الموضوع

إليكم الكود مشروح بالتفصيل لكي يسهل عليكم التعديل ولكي نتعلم ونرتقي
Sub Create_Comments_With_Pictures()
    'تعريف المتغيرات
    Dim rngList     As Range
    Dim c           As Range
    Dim cmt         As Comment
    Dim strPic      As String

    'جملة لتفادي حدوث خطأ
    On Error Resume Next

    'تعيين النطاق الذي يحتوي على أسماء ملفات الصور في العمود الأول
    Set rngList = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    'تعيين مسار المجلد الذي يحتوي على الصور المراد إدراجها في تعليق
    '[Pictures] المسار هو مسار المصنف الحالي في مجلد باسم
    strPic = ThisWorkbook.Path & "\Pictures\"
    
    'حلقة تكرارية لكل خلية من خلايا النطاق الذي يحتوي أسماء ملفات الصور
    For Each c In rngList
    
        'بدء التعامل مع الخلية المجاورة أي في العمود المجاور للخلية
        'حيث أن الإزاحة بمقدار عمود واحد أي أن الإزاحة هنا ستكون للعمود الثاني
        With c.Offset(0, 1)
        
            'تعيين قيمة للمتغير ليساوي التعليق الموجود في الخلية
            Set cmt = .Comment
            
            'إذا لم يكن بالخلية تعليق
            If cmt Is Nothing Then
            
                'يتم تعيين قيمة للمتغير بإضافة تعليق جديد
                Set cmt = .AddComment
            
            'نهاية جملة الشرط
            End If
            
            'بدء التعامل مع التعليق
            With cmt
                
                'مسح نص التعليق
                .Text Text:=""
                
                'إدراج شكل أو صورة من خلال المسار الذي تم تحديده
                'مضاف إلى المسار اسم الصورة بالامتداد
                .Shape.Fill.UserPicture strPic & c.Value
                
                '[False] إلى القيمة [True] إظهار التعليق ، ولإخفاء التعليق قم بتغيير القيمة
                .Visible = True
            
            'انتهاء التعامل مع التعليق
            End With
        
        'انتهاء التعامل مع الخلية المجاورة للخلية الحالية في الحلقة التكرارية
        End With
    
    'الانتقال للخلية التالية في النطاق
    Next c
End Sub


لرؤية الروابط والمرفقات عليك الرد على الموضوع


إعداد / ياسر خليل أبو البراء

أثارت هذه المشاركة إعجاب: حارثة ابو زيد1، سوزي كارم، محمد الدسوقى، حسن علي، الصقر،





05-10-2017 09:00 مساء
مشاهدة مشاركة منفردة [1]
سوزي كارم
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس : أنثى
تاريخ الميلاد : 4-2-1999
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 177
الاعجاب : 53
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
اعزك الله استاذ ياسر

أثارت هذه المشاركة إعجاب: YasserKhalil،




05-10-2017 09:36 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5605
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 362
قوة السمعة : 15714
الاعجاب : 5908
 Online 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
بارك الله فيكي أختي الفاضلة ومشكور على مرورك العطر





07-10-2017 07:58 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1560
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 488
قوة السمعة : 15104
الاعجاب : 3569
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures

جزاكم الله خيرا اخى الحبيب ياسر 
اسال الله تعالى ان يرفق قدرك ويزيدك من علمه
تقبل تحياتى 142


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



07-10-2017 08:00 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5605
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 362
قوة السمعة : 15714
الاعجاب : 5908
 Online 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
وجزيت خيراً بمثل ما دعوت لي أخي وحبيبي في الله حسام خطاب
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: الصقر،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل Yasser Elaraby
23 2401 teguera
كود لعمل HyperLink للربط بين جميع اوراق العمل داخل ملف - أكاديمية الصقر للتدريب الصقر
25 1250 manola_mr
كيفية ادراج فلاش داخل الاكسل مجدى يونس
7 68 مجدى يونس
الانتقال الى كود العميل اللذى يكتب داخل خليه Omar2
8 89 YasserKhalil
كود بحث واستبدال داخل الوورد والتعامل مع محرر الاكواد Yasser Elaraby
13 392 yaseraw139

الكلمات الدلالية
إدراج ، داخل ، التعليقات ، بناءً ، قائمة ، بأسماء ، ملفات ، الصور ، Create ، Comments ، With ، Pictures ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 05:05 مساء

أعلن هنا
أعلن هنا
أعلن هنا