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



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





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

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



04-12-2017 08:57 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4386
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 311
قوة السمعة : 12656
الاعجاب : 4632
 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

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

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

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


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





04-12-2017 09:39 صباحا
مشاهدة مشاركة منفردة [1]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 240
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
يتابعهم : 59
يتابعونه : 13
قوة السمعة : 1672
الاعجاب : 485
 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 مرات التحميل :(50)
الحجم :(49.944) KB
 


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


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

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



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

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



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




04-12-2017 10:02 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4386
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 311
قوة السمعة : 12656
الاعجاب : 4632
 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
قوة السمعة : 69
الاعجاب : 20
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
شكراً اخى الكريم ابو البراء على المجهود الرائع وندعمك بكل ما نملك أخى الكريم فانت تستحق أكثر من ذلك بكثير 142

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




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

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




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

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




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

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



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




04-12-2017 11:50 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4386
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 311
قوة السمعة : 12656
الاعجاب : 4632
 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
قوة السمعة : 457
الاعجاب : 174
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل

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


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




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

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




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

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





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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف نختار مجموعة عشوائية من التلاميذ salim
10 144 مهند محسن
Excel-VBA لنسخ سطر تحت سطر معين بعد إضافة محتوى لخلية فارغة من ضمن مجموعة معينة Ahmed ElGammal
1 52 Ahmed ElGammal
مجموعة من الارقام العشوائية بشرط salim
3 68 Eslam Abdullah
شرح رائع وسهل لتعليم VBA بجانب مجموعة أكواد هامة Ahmed Samir
3 66 Ahmed Samir
سؤال لخبراء الاكسل ماهي الطريقة الصحيحة لحماية ملف فية مجموعة اوراق عمل فيه اكواد ومعادلات  ابوعلي الحبيب
16 468 ابوعلي الحبيب

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


 







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



الساعة الآن 12:15 مساء

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