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



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





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

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



05-10-2017 02:17 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4373
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12616
الاعجاب : 4612
 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


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


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

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





05-10-2017 09:00 مساء
مشاهدة مشاركة منفردة [1]
سوزي كارم
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس : أنثى
تاريخ الميلاد : 4-2-1999
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 109
الاعجاب : 31
 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
المشاركات : 4373
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12616
الاعجاب : 4612
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
بارك الله فيكي أختي الفاضلة ومشكور على مرورك العطر





07-10-2017 07:58 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1377
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 344
قوة السمعة : 10401
الاعجاب : 2611
 Online 
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
المشاركات : 4373
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 309
قوة السمعة : 12616
الاعجاب : 4612
 offline 
look/images/icons/i1.gif إدراج صور داخل التعليقات بناءً على قائمة بأسماء ملفات الصور Create Comments With Pictures
وجزيت خيراً بمثل ما دعوت لي أخي وحبيبي في الله حسام خطاب
تقبل وافر تقديري واحترامي

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
جلب اسماء الملفات داخل فولدر بارتباط تشعبى Eslam Abdullah
17 965 محمد أبو عبدو
إنشاء قوائم مخصصة داخل الاكسيل محمد الدسوقى
10 315 أحمد يوسف
هل من الممكن حساب الوارد+المرتجع - الصادر داخل اليوزر فورم محمدحسني احمد
19 202 محمدحسني احمد
كيف نبحث عن كلمة او حرف او عبارة داخل نص salim
9 106 محمد حسن المحمد
الجزء الثانى من شرح داله if شرح دالة if المتعددة، المتداخلة، لأكثر من شرط nested if Ahmed Samir
2 50 Eslam Abdullah

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


 







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



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

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