(تمت الاجابة)ظهور الصوره بالنسبه- للمحترفين

[ابو الشرف]

كيف يمكن ان اظهر الصوره حسب النسبه اي 20% تظهر 20% من الصوره وهكذا وياليت بالدوال وليس الاكواد ان امكن

[ابو الشرف]

كيف يمكن ان اظهر الصوره حسب النسبه اي 20% تظهر 20% من الصوره وهكذا وياليت بالدوال وليس الاكواد ان امكن

ظهور الصوره بالنسبه.rar

تم تعديل أكتوبر 24, 2011 بواسطه ابو الشرف

[أ / محمد صالح]

أعتقد أن مثل هذا الأمر لا يمكن معالجته بالمعادلات

[محمد يحياوي]

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

تغيير حجم صورة بتغير قيمة خلية

[أ / محمد صالح]

شكرا على الكود الجميل أخي محمد يحيى

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

With ActiveSheet.Shapes("picture 2")

.Width = .Width * Range("a1").Value

.Height = .Height * Range("a1").Value

End With

ولكني أعتقد أن الأخ أبو الشرف لا يريد تحجيم الصورة وإنما يريد

ظهور 20% من الصورة والباقي يكون مختفي وهكذا إلى أن تظهر الصورة كاملة

وهذا أيضا له حل بإذن الله

.....

فعندما يتم التوضيح من الأخ ابو الشرف

يتم الرد بإذن الله

[ابو الشرف]

شاكر يا اخوان علي اهتمامكم وجزاكم الله خيرا لكل من يفيد المسلمين - نعم انا اريد ظهور نسبه 20% من الصوره والباقي يكون مختفي وفي حاله كتابه الكود برجاء شرحه لتعم الاستفاده - جزاكم الله خيرا

[ابو الشرف]

شكرا على الكود الجميل أخي محمد يحيى

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

With ActiveSheet.Shapes("picture 2")

.Width = .Width * Range("a1").Value

.Height = .Height * Range("a1").Value

End With

ولكني أعتقد أن الأخ أبو الشرف لا يريد تحجيم الصورة وإنما يريد

ظهور 20% من الصورة والباقي يكون مختفي وهكذا إلى أن تظهر الصورة كاملة

وهذا أيضا له حل بإذن الله

.....

فعندما يتم التوضيح من الأخ ابو الشرف

يتم الرد بإذن الله

- نعم اريد ظهور بالنسبه حسب خليه معينه وباقي الصوره مختفي حسب النسبه الموجوده

[أ / محمد صالح]

المضوع ممكن بإذن الله

ولكن

ماذا تريد من هذا الكود؟

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

لعلنا نتعاون في فكرة تكون أفضل

[ابو الشرف]

ظهور الصوره بنسبه موجوده في خليه معينه يعني موظف حقق 20% من المطلوب منه تظهر 20% من صورته وهكذا الي ان يحقق 100% تظهر صورته كامله

[الحسامي]

السلام عليكم

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

ظهور الصوره بالنسبه.rar

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

الاستاذ الفاضل عماد الحسامي

عمل جميل ومبهر

تسلم يدك يا معلم على هالابداع

ابواحمد

[saad abed]

استاذ عماد الحسامى

جزاك الله خيرا اصلح بالكم

تحياتى

سعد عابد

[أ / محمد صالح]

أخي الكريم عماد

دائما سباق إلى الخير

كنت أفكر في استعمال الأمر crop ولكنك سبقتني

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

وكل عام وجميع الأحباب في منتدانا بكل خير

[ابو الشرف]

جزاك الله خير يا استاذنا وجعله في ميزان حسناتك ولكن لو حبيت اكرر هذا في احدي الخلايا الكبري كيف انسخ الكود.....شكرا

[محمد يحياوي]

الاخ الحبيب "الحسامي" بارك الله فيك فكرة رائعة ابداع و تميز لا نظير له

[الـعيدروس]

السلام عليكم

الاستاذ القدير الحسامي

فكرة جميلة جدا

جزيت خيرا

الاخ صاحب الموضوع

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

فرضا ان كل موظف بياناته في شيت محدد

ظهور الصوره بالنسبه1.rar

[saad abed]

اخى ابونصار

بصماتك فى كل الاعمال مؤثرة

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

سعد عابد

[الحسامي]

السلام عليكم

بارك الله فيكم وجزاكم الله خيرا على شعوركم الجميل ومروركم الاجمل

اخي محمد صالح لا يهم من سبق الاخر المهم ايجاد اضافة ومعلومة للجميع بغض النظر عن من وضعها وقدمها جميعنا اخوة

اخي ابو نصار بارك الله فيك على هذه الاضافة والمشاركة الطيبة

[ياسر الحافظ]

الاستاذ اخونا المبدع " الحســــــــــــــــــــــــــــــــامي "

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

ادامك الله لنا وللمنتدى

والشكر موصول لاخونا الاستاذ العيدروس " ابو نصار "

وفقكم الله

ابو الحارث

[naderwatfa]

إبداع أخي الحسامي

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

و إضافة جميلة أخي أبو نصار

بارك الله فيك

و كل سنة و انتم بخير