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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





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

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



05-10-2017 02:17 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6583
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18182
الاعجاب : 625
 offline 


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

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

تجهيز الملف : قم بإدراج أسماء ملفات الصور في النطاق 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


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


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






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





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





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

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




توقيع :الصقر

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



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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حدود داخل الليست بوكس احمد سيف
2 22 محمود ابو الدهب
اليكم محرك بحث رائع داخل ورقة العمل زياد عبد الجليل
21 991 الترياق
بحث وعرض النتائج داخل اللست بوكس طارق زكريا
2 36 طارق زكريا
مساعدة في بناء كود داخل ملف الاكسل MrSeen
0 24 MrSeen
معرفة معلومات عن الملفات داخل مجلد معين - ياسر العربي Yasser Elaraby
5 382 AhmedZakaria

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


 







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



الساعة الآن 04:53 صباحا

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