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





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

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



04-12-2017 08:57 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 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، اسم المستخدم، محمود الشريف، محمود ابو الدهب، محمد الدسوقى، محمد أبو عبدو، ابو يوسف المصري،



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


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


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

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


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

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



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



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

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



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

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



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

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



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

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



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

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



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



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




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

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


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



04-12-2017 02:01 مساء
مشاهدة مشاركة منفردة [10]
حسن علي
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 20-09-2017
رقم العضوية : 568
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 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
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 155
قوة السمعة : 4944
الاعجاب : 1405
 offline 
look/images/icons/i1.gif إدراج مجموعة من الصور في مسار محدد إلى ورقة العمل
بارك الله فيك أخي العزيز ناصر ومشكور على مرورك العطر

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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث عن رقم في مجموعة من الملفات زيد2017
5 63 زيد2017
مجموعة متنوعة من ملفات الاكسيل Yasser Elaraby
8 384 karwan
تثبيت مجموعة من الايقونات المهمة فى شريط العنوان أباالحسن
3 117 YasserKhalil

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


 







الساعة الآن 08:28 صباحا