(موضوع مميز) دالة لاضافة صور من مجلد الى شكل تلقائي

[عبدالله باقشير]

استاذي الفاضل عبد الله باقشير اعداد الطلاب كثيره ونريد هذا الكود يعمل اوتوماتيك بدل ان اضع رقم الصوره وقد طلبت عندما لايوجد صوره للطالب نرجو عدم ظهور الفرام المسامحه في هذا الطلب لان الفرام مهم والطباعه مهم الله يرضى عليك وعلينا

اخي الفاضل هذه دالة معمولة بكود

يعني هي دالة مثل دوال الاكسل

الفرق انها تحتاج الى شكل تلقائي لاظهار الصورة

والغاية منها اظهار صور في نموذج معين يتغير تبعا لقيم متغيره

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

ويتغير باستمرار حسب قيمة معينة

ممكن تستخدم هذه الدالة لاظهار صورة الطالب في الشهادة

تقوم باضافة شكل تلقائي لمستطيل وتضعه في المكان الذي تريده في الشهادة

وتعمل هذه الدالة في اي خلية في الورقة وتضيف اسم المستطيل في الدالة

وتكرر هذا العمل على باقي الشهادات الثلاث في النموذج

ارجوا ان يكون شرحي مفهوما

ودمتم

[islam11]

حزاك الله كل خير وبارك لك استاذ عيد الله باقشير

انا رسمت شكل تلقائي ووضعنه في خليه

ماذا اقعل بغد ذلك ... لو تكرمت

تم تعديل فبراير 8, 2012 بواسطه islam11

[islam11]

حزاك الله كل خير وبارك لك استاذ عيد الله باقشير

انا رسمت شكل تلقائي ووضعنه في خليه

ماذا اقعل بغد ذلك ... لو تكرمت

ظهر اسم الشكل التلقائي

ونسخته في الجدول وظهرت الصوره تمام

الله يبارك لك بابطل

[asdhamdey]

عمل متقن ورائع ومفيد جدا استاذ عبد الله باقشير

نقلت الصور بسهوله مع كروت محدوده ولكن مع كروت مدرسه كثيرة الطلاب

ماذا افعل ؟

[وليد المصرى 1]

روعة يا استاذنا جزاك الله خير استاذ خبور

[محمدي عبد السميع]

حفظك ربنا ورعاك ايها البطل

العالم العلامه عبد الله باقشير

ماشاء الله

[علي فاهم]

استاذي الفاضل عبد الله باقشير

عمل متقن ورائع ومفيد جدا استاذ عبد الله باقشير

نقلت الصور بسهوله مع كروت محدوده ولكن مع كروت مدرسه كثيرة الطلاب

ماذا افعل ؟

والطباعه مهم

الله يرضى عليك وعلينا

موضوع غايه في الروعه

جزاك الله خيرا

موضوع غايه في الروعه

جزاك الله خيرا

[عبدالله المجرب]

السلام عليكم

استاذي القدير ابوعلي

لي طلب شرحين في الكود اتمنى ان اجد الاجابة الوافية لديك (كما عودتنا) الشرح هنا ليس يخص دوره في الكود وانما شرح لدور الدوال الموجودة فيه

الطلب الاول شرح لهذا الجزء

If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path

MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng)

=== الطلب الثاني

If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then

	    MyShap.Fill.UserPicture MyFile & Trim(Tp)

	    ibo = True

وشكراً

[Ahmed Elbhiry]

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

تعمل كالوقود الذى يحرك السيارة ويحفز الجميع على التعلم

والعمل وهو بمشاركاته يفتح الباب امامنا للتعلم ويعطينا الحافز

المستمر للتعلم

لك منى كل الحب والاحترام والتقدير

[عبدالله باقشير]

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

الشكر واصل لجميع المشاركين كلا باسمه

جزاكم الله خيرا

وبارك الله فيكم

الطلب الاول شرح لهذا الجزء

If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path

MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng)

هنا نتاكد من ان اسم مجلد الملف مسار كامل اذا كان اسم الملف مسار كامل اكيد حيكون في النص النقطتين فوق بعض ":" InStr تبحث في النص kh_pic عن النقطتين وتعيد رقما عن مكانه في النص اذا كانت صفرا معناه ان الموجود اسم فقط وليس مسار في هذه الحالة حنستخدم مسار ملف الاكسل ==============================================

الطلب الثاني

If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then

		MyShap.Fill.UserPicture MyFile & Trim(Tp)

		ibo = True

Dir من استخدامات FileSystem دالة تستخدم لمعرفة دليل الملف وخواصه

  If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then

هنا نتاكد من وجود الصورة المسماة اذا كانت موجودة

MyShap.Fill.UserPicture MyFile & Trim(Tp)

نعبي الشكل التلقائي بهذه الصورة

لو عملتها يدويا بهذه الخطوات

من تنسيق الشكل التلقائي

الوان وخطوط

تعبئة

اللون

تاثيرات التعبئة

صورة

تحديد صورة

ارجوا ان يكون شرحنا مفهوما لديكم

ودمتم في حفظ الله

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل

Ahmed Elbhiry

--------حفظه الله

جزاك الله خيرا

وبارك الله فيكم

تقبل تحياتي وشكري

[عبدالله المجرب]

الاستاذ الفاضل عبدالله باقشير (ابوعلي) حفظه الله

الشرح مفهوم ونصف

لكن يلزمنا الوقت لاستيعابه

شكراً لك على التكرو بالشرح المفصل

[ريان أحمد]

السلام عليكم

دالة روعة ومفهومة وسهلة الإستعمال

شكرا أستاذي وجزاك الله كل خير

لكن عندي ملاحظة بالنسبة للصورة من نوع جيف عند إدراج صورة متحركة لا تضهر كذلك فهل هذا ممكن

[عبدالله باقشير]

السلام عليكم

دالة روعة ومفهومة وسهلة الإستعمال

شكرا أستاذي وجزاك الله كل خير

لكن عندي ملاحظة بالنسبة للصورة من نوع جيف عند إدراج صورة متحركة لا تضهر كذلك فهل هذا ممكن

الصور المتاحة في الكود

التي يقبلها الشكل التلقائي كتعبئة فقط

شكرا جزيلا

[محمدي عبد السميع]

اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير

لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء

تم تعديل فبراير 14, 2012 بواسطه mohammadey1

[asneet]

اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير

لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء

اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير

[mhrrd]

جزاك الله خيرا

[قصي]

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

بارك الله فيك وغفر الله لك ولوالديك العلامة عبد الله

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل عبد الله باقشير (أبا علي) حفظك الله وأكرم مدخلك في الفردوس الأعلى من الجنة.

بلغك الله ليلة قدره وخواتم مباركة تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال ...

بارك الله بك وفيك وجزاك كل خير ورضي عنك ربي.

أبو أنس ناصر حاجب

[yasso-it]

أستاذ خبور

انا عضو جديد و عندي طلب لو سمحت

 

أنا عندي صور موجودة في عدد من المجلدات ( حوالي 1200 مجلد )

 

أريد من هذه الدالة أن :

 

تدخل إلى المجلدات و تسحب الصورة ، مثال :

 

موقع الصورة الأولى :

C:/folder1/Pic1

 

موقع الصورة الثانية:

C:/folder2/Pic1

 

موقع الصورة الثالثة:

C:/folder3/Pic1

 

وهكذا...إلخ

 

فهنا إذاً المطلوب من ملف الإكسل

أن يأخذ موقع الصورة من خلية أنا أقوم بتحديدها له

 

هل هذا ممكن ؟؟؟

[عبدالله باقشير]

أستاذ خبور

انا عضو جديد و عندي طلب لو سمحت

 

أنا عندي صور موجودة في عدد من المجلدات ( حوالي 1200 مجلد )

 

أريد من هذه الدالة أن :

 

تدخل إلى المجلدات و تسحب الصورة ، مثال :

 

موقع الصورة الأولى :

C:/folder1/Pic1

 

موقع الصورة الثانية:

C:/folder2/Pic1

 

موقع الصورة الثالثة:

C:/folder3/Pic1

 

وهكذا...إلخ

 

فهنا إذاً المطلوب من ملف الإكسل

أن يأخذ موقع الصورة من خلية أنا أقوم بتحديدها له

 

هل هذا ممكن ؟؟؟

 

هذه الدالة تعمل مع مجلد واحد فقط يتم تحديده في كود الدالة

تحياتي

[أبو أنس80]

شي جميل جدا

باك الله فيك

[ra--8i]

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