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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله النهاردة حبيت أقدم لكم كود ممكن يكون مفيد ليكم ، لأنه هيوفر علي ..



04-12-2017 08:57 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

إخواني وأحبابي في الله

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

Mjk5NTMxLogo

داخل الكود ممكن تحدد العمود اللي هيتم وضع الصور فيه .. شوف التعليق Column Number هتلاقيه 2 أي العمود B أي العمود التاني (بكلمكم بكل اللغات عربي وإنجليزي وأرقام)
وكمان ممكن تحدد صف البداية ودا هتلاقوه في التعليق Row Number ودا 1 ، كرقم البداية لأول صف

خلاص كدا .. بكدا إنت هتحدد مسارك ، وعمودك ، وصفك .. سيب الباقي على الكود

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

أرجو أن تستفيدوا من الكود .. وأخيراً بعد الرغي والكلام اللي ملوش لازمة بس له لازمة إليكم الكود ...

Sub Insert_Pictures_To_Worksheet_Resize_All()
    Dim picList()       As Variant
    Dim picFormat       As String
    Dim rng             As Range
    Dim sShape          As Shape
    Dim xColIndex       As Integer
    Dim xRowIndex       As Integer
    Dim lLoop           As Integer

    On Error Resume Next
    picList = Application.GetOpenFilename(picFormat, MultiSelect:=True)
    xRowIndex = 1       'Row Number
    xColIndex = 2       'Column Number
    
    If IsArray(picList) Then
        For lLoop = LBound(picList) To UBound(picList)
            Set rng = Cells(xRowIndex, xColIndex)
            Set sShape = ActiveSheet.Shapes.AddPicture(picList(lLoop), msoFalse, msoCTrue, rng.Left, rng.Top, rng.Width, rng.Height)
            rng.Offset(, -1).Value = Split(Split(picList(lLoop), "")(UBound(Split(picList(lLoop), ""))), ".")(0)
            xRowIndex = xRowIndex + 1
        Next lLoop
    End If
End Sub


بعد تنفيذ الكود هتلاقي النتيجة بالشكل ده

NzU4MDkxFinal

وأخيراً إليكم الملف مرفوع على رابط خارجي (ومحدش يطلب مني أرفعه بالمنتدى .. اتعب شوية عشان تدعمني ..دا لو حابب تدعمني)

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

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


أثارت هذه المشاركة إعجاب: عبدالله فتحى، sobhi67،





04-12-2017 09:39 صباحا
مشاهدة مشاركة منفردة [1]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
السلام عليكم ورحمة الله وبركاته 142 
جزاكم الله خيراً أخي الحبيب أبو البراء على هذا العمل الرائع3

بارك الله بكم
والسلام عليكم MzIzOTk3MQ4040%D8%A5%D8%AF%D8%B1%D8%A7%D8%AC%20%D8%B5%D9%88%D8%B1%20%D9%81%D9%8A%20%D9%85%D8%B3%D8%A7%D8%B1%20%D9%85%D8%AD%D8%AF%D8%AF
 
  إدراج صور في مسار محدد.JPG   تحميل jpg إدراج صور في مسار محدد.JPG مرات التحميل :(52)
الحجم :(49.944) KB
 


أثارت هذه المشاركة إعجاب: عبدالله فتحى،


توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



04-12-2017 09:53 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل

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





توقيع :الصقر

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



04-12-2017 10:02 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
أخي الغالي أبو يوسف
أخي الحبيب حسام خطاب
مشكور على مروركما العطر وبارك الله فيكما وجزاكما الله خير الجزاء على تشجيعكما الدائم لي
تقبلا وافر تقديري واحترامي





04-12-2017 10:07 صباحا
مشاهدة مشاركة منفردة [4]
ابوحمزه
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 233
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 73
الاعجاب : 1
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
شكراً اخى الكريم ابو البراء على المجهود الرائع وندعمك بكل ما نملك أخى الكريم فانت تستحق أكثر من ذلك بكثير 142





04-12-2017 10:09 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
بارك الله فيك أخي الكريم أبو حمزة ومشكور على كلماتك الطيبة وشعورك الطيب
تقبل وافر تقديري واحترامي





04-12-2017 10:27 صباحا
مشاهدة مشاركة منفردة [6]
karwan
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 178
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 8
يتابعونه : 7
قوة السمعة : 226
الاعجاب : 15
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
جزاكم الله خیرا 
 





04-12-2017 11:13 صباحا
مشاهدة مشاركة منفردة [7]
محبوب7
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-09-2017
رقم العضوية : 321
المشاركات : 38
الجنس : ذكر
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 31
الاعجاب : 0
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل

جزاكم الله خيرا اخى الحبيب ابوبراء







04-12-2017 11:50 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
أخي الكريم كروان
أخي الكريم محبوب
بارك الله فيكما وجزيتما خيراً بمثل ما دعوتما لي
تقبلا تحياتي





04-12-2017 12:32 مساء
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 613
الاعجاب : 9
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل

جزاكم الله خيرا
استاذ ياسر خليل






04-12-2017 02:01 مساء
مشاهدة مشاركة منفردة [10]
حسن علي
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 568
المشاركات : 17
الجنس : ذكر
تاريخ الميلاد : 22-6-1956
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 44
الاعجاب : 1
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
استاذ ياسر
سعدت صباحا
فكره رائعه كعادة افكارك
تم وضع المرفقات في فولدر واحد ولكن عند ضغط الزر يفتح شاشة ادراج الصوره ، ويطلب تحديد الصوره واحده في كل مره
بمعنى ان الكود بدرج صوره في كل مره 
ما السبب تعتقد
 





04-12-2017 02:09 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
بارك الله فيك أخي العزيز ناصر ومشكور على مرورك العطر

أخي الحبيب حسن علي
عند ظهور النافذة يمكنك اختيار صورة أو أكثر من صورة .. الأمر يرجع لك





04-12-2017 03:08 مساء
مشاهدة مشاركة منفردة [12]
محمود الشريف
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 1
يتابعونه : 25
قوة السمعة : 2068
الاعجاب : 24
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
ما شاء الله
جميلة جدا الفكرة 
جزاكم الله خيرا أستاذى القدير // ياسر خليل
جعله الله بميزان حسناتكم






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم سرى الدخول لمجموعة من العاملين مجدى يونس
1 11 مجدى يونس
تصدير مجموعة أوراق عمل إلى العديد من المصنفات إعتمادا على عمود سعيد بيرم ابوعبدالرحمن
20 207 سعيد بيرم ابوعبدالرحمن
تصدير مجموعة أوراق عمل إلى مصنف واحد باستخدام المصفوفات Export Specific Sheets To One Workbook YasserKhalil
13 101 YasserKhalil
تصدير مجموعة أوراق عمل مع بعض الأكواد إلى مصنف واحد سعيد بيرم ابوعبدالرحمن
4 54 YasserKhalil
مشكل عدم ظهور نتائج البحث في مجموعة من الكمبوبوكس foular
0 120 foular

الكلمات الدلالية
إدراج ، مجموعة ، الصور ، مسار ، محدد ، ورقة ، العمل ،


 







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



الساعة الآن 03:07 صباحا

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