استعراض الصور

[gelani]

تحياتي وتقديري سلفاً لجميع الأعضاء في هذا المنتدى الرائع.

نحتاج الى حفظ صور معينة وتخزينها والعودة إليها لمطابقتها للإستفادة من التقنية العالية المتوفرة حالياً .

الشرح مفصل في الملف المرفق . أرجو التعديل عليها وشرح الطريقة .

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

_____________.rar

[محب العلم]

تحياتي لك ،

اطلعت على برنامجك واود اقتراح الحل الآتي عليك

في الجدول الذي في الصفحة a والذي تعتبره مرجعا لما يليه من صفحات مثل b لا تدرج الصور هناك في الجدول بل ادرج فقط عنوان الصورة على الهارد ديسك مثلا c:\signature\1 للتوقيع الأول وهكذا بالنسبة للأختام

ثم استخدم في الصفحة b اقتران لإظهار الصورة مثلا ShowPicD المرفق هنا ثم من خلال الأمر vLookup استدعي في الصفحة b عنوان الصورة ومرره للإقتران الجديد هكذا

=ShowPicD(VLOOKUP(E1,a!$A$3:$E$9,4,TRUE))

وهذا الإقتران الذي يلزم تعريفه في وحدة نمطية ليتم استخدامه

 

Function ShowPicD(PicFile As String) As Boolean
  Dim AC As Range
  Static P As Shape
  On Error GoTo Done
  Set AC = Application.Caller
  If PicExists(P) Then
     P.Delete
  Else
     For Each P In ActiveSheet.Shapes
        If P.Type = msoLinkedPicture Then
           If P.Left >= AC.Left And P.Left < AC.Left + AC.Width Then
              If P.Top >= AC.Top And P.Top < AC.Top + AC.Height Then
                 P.Delete
                 Exit For
              End If
           End If
        End If
     Next P
  End If
  Set P = ActiveSheet.Shapes.AddPicture(PicFile, True, True, AC.Left, AC.Top, 200, 200)
  ShowPicD = True
  Exit Function
Done:
  ShowPicD = False
End Function


Function PicExists(P As Shape) As Boolean
  Dim ShapeName As String
  On Error GoTo NoPic
  If P Is Nothing Then GoTo NoPic
  ShapeName = P.Name
  PicExists = True
NoPic:
  PicExists = False
End Function

أرجو منك رفع النتائج بعد الانتهاء من التجربة

تحياتي

[omar elhosseini]

شاهد هذا الرابط

البوم للصور والمعروضات, يسع 30.000 صورة او منتج

ملحوظة : اتمنى ان نكون على مستوى الفاضل / على السحيب

تم تعديل ديسمبر 28, 2007 بواسطه أبو تامر

[gelani]

الشكر موصول لكم جميعاً الأخ محب العلم والأخ أبو تامر .

وأود الإفادة بأنني لم أستطع التعامل مع الكود المرفق من الأخ ( محب العلم ) لجهلي التام للطريقة حيث قمت بنسخ الكود المرفق ووضعته في موديول خاص ولم أستطع عمل رابط بين الصور الموجودة في ملف خاص الى الدرايف c وكذلك لم أستطع إستدعاء الصور بالطريقة الموضحة .

ولن أتوقف عن المحاولة وسأوافيكم بما يستجد معي .

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

أنا في الإنتظار .

تحياتي وتقديري .

[محب العلم]

بالنسبة للوحدة النمطية وعدم تفاعلها ربما نسيت تعمل تخزين

على كل الأحوال طبقت الفكرة على book تاني واتصور ان الفكرة عال العال

المف : Book1.rar

تحياتي

[gelani]

أخي ( محب العلم )

أشكرك وأدعو لك من قلبي بالتوفيق . وزادك الله علماً.

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

تحياتي وتقديري لك ولجميع أعضاء المنتدى الرائع وسأتابع وأشعركم بكل ما يستجد معي حيث أنني لم أكمل العمل فقط حبيت أشعركم بنجاح الكود مبدئياً.

[omar elhosseini]

شاهد المرفق اخى

شرح طريقة العمل موجود بالرابط فى مشاركتى الاولى

ارجو الالتزام بالتعليمات الموجدة فى التوقيع ( السطور الحمراء )

Omar_1.rar

[أكرم الغامدي]

بسم الله ما شاء الله، لا أستطيع إلا أن أقول أنه إبداع، وها نحن نتعلم ونستفيد.

زادكم الله من العلم إلى أن ترضوا، وجعل هذا العمل في ميزان حسناتكم.

[omar elhosseini]

ماشى الحال خى اكرم

فى انتظار بحثك عن ثغرات الحماية

[gelani]

وفقك الله وزادك علماً.

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

[gelani]

عزيزي الأخ المشرف .

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

عن طريق PICTURE = وللصورة الثانية 2_PICTURE= ولم أستطع فهم الطريقة بالرغم من كثرة المحاولات.

ارجو توضيح الطريقة بالتفصيل وجزاكم الله خير .

تم إضافة المطلوب على نفس الملف .

[omar elhosseini]

مشاركتى الاولى يوجد بها رابط لشرح الطريقة

[abbermustfa]

شاهد هذا الرابط

البوم للصور والمعروضات, يسع 30.000 صورة او منتج

ملحوظة : اتمنى ان نكون على مستوى الفاضل / على السحيب

ماذا تقصد بها

[omar elhosseini]

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

فى السؤال عن معلومة رغم مستواة المتقدم والمميز فى الاكسيل

وكان فى هذا الوقت هو المشرف المميز بإبداعاته الغير مسبوقة وكنت فى ذالك الوقت عضوا فقط انهل من خبرته

واسلوبة الراقى فى التعامل مع موضوع جديد والتفاعل معه للبحث وتبادل المعرفة .

فهل هناك حسن خلق افضل من ذلك اتمنى ان نكون على مستواه

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

[abbermustfa]

الاستاذ على السحيب رجل لايزكى على الله

فهو قمة مافي هذا ريب

ولكن يا أخي للجبل قمم كثيرة

وليست قمة واحدة

فمثلا الاخ خبور عملاق يستطيع ان يأتي من الاعمال المبهرة الكثير بفضل الله

وليس ذلك شكرا له او تقليلا في حق الفاضل على السحيب

لماذا ؟

لان هذا حق الكريم خبور وربما يكون اقل من حقه

وهناك الكثير في المنتدى

وبالنسبة لامنيتك بعودة الفاضل على ندعو الله ان يطمئننا عليه ويعود الينا سالما غانما ان شاء الله

وما دمنا قد ذكرنا الفاضل السحيب

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

غفر الله لنا جميعا

وجعل هذا المنتدى عظيم باهله كل اهله آمين

تم تعديل يناير 4, 2008 بواسطه abbermustfa

[أكرم الغامدي]

http://www.officena.net/ib/index.php?showt...;hl=البوم+الصور

[abbermustfa]

للرفع

[mr toto]

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