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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الكلام بيضرب بعد تحويله الى بي دي إف اكسيل اسئله واجابات


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


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





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

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



05-10-2017 02:17 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 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]
سوزي كارم
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس : أنثى
تاريخ الميلاد : 4-2-1999
الدعوات : 1
قوة السمعة : 190
الاعجاب : 0
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
اعزك الله استاذ ياسر




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




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

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




توقيع :الصقر

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


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




25-08-2019 08:03 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
تم تحديث الملف في المشاركة الأصلية ..حيث وجدت الملف محذوف




25-08-2019 08:05 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4309
الاعجاب : 0
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
بارك الله فيك استاذ ياسر وشكرا للتحديث للافاده
 



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

تحياتى وتقدير للجميع  محمود ابوالدهب

25-08-2019 08:59 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
جزاك الله خيراً أخي الحبيب محمود ومشكور على حسن متابعتك المستمرة لموضوعات المنتدى يا شعلة النشاط




30-08-2019 01:37 مساء
مشاهدة مشاركة منفردة [8]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6869
الاعجاب : 12
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
بارك الله فيك وزادك الله من فضله



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

30-08-2019 01:42 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25174
الاعجاب : 54
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
بارك الله فيك أخي العزيز علي ومشكور على تشجيعك الدائم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث داخل القوائم المنسدلة Validation Lists YasserKhalil
55 5535 YasserKhalil
بعض المؤثرات النصية على Label داخل اليوزر فورم Yasser Elaraby
12 2365 YasserKhalil
كيفية البحث في الشيتات الموجودة داخل ملف الاكسل بدلالة عدة شروط مع كتابة اسم الشيت في خانة العميل alhady
1 762 alhady
كيفية جلب الصور الموجودة في ملف معين داخل ملف اكسيل mmagedmemo
1 167 mmagedmemo
كيفية تشغيل ملف الفلاشي داخل برنامجنا vb.net Yasser Elaraby
6 1699 رغد سامح

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


 







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

الساعة الآن 03:26 مساء

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