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

[BACHA22]

طرحت الموضوع عدة مرات و لا أحد يجيب و سأواصل حتى أتمكن من حل

اللغز الموضوع في الرابط

My link

[BACHA22]

أين أنتم ولا واحد يعرف اه

[يوسف عطا]

ممكن تعطينا فكرة عن الموضوع فى المشاركة ومن يهتم يقوم بتنزيل الرابط

لأن بطئ النت يجعل كثيرين وأنا منهم لا أقوم بعمل داونلوود إلا للملفات التى أهتم بها

فلو تعطينا فكرة عن الموضوع تجد ردود كثيرة ان شاء الله

[سالم شباني]

السلام عليكم

أخي باشا ، حياك الله

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

أولا : الكود الذي يتحكم في ظهور الصور هو

Private Sub Worksheet_Calculate()

Dim oPic As Picture

Me.Pictures.Visible = False

With Range("p8")

For Each oPic In Me.Pictures

If oPic.Name = .Text Then

oPic.Visible = True

oPic.Top = .Top

oPic.Left = .Left

Exit For

End If

Next oPic

End With

End Sub

ثانيا : كما ذكرت لك في ردي السابق ، حين تختار اسم الموظف ويكون مكان الصورة فارغا ( مكتوب فيه PICTURE_8 مثلا)

في هذه الحالة قم بإدراج صورة ثم صغر حجمها حسب الخلية المكتوب فيها PICTURE_8 ثم سم الصورة PICTURE_8

تم تعديل يونيو 26, 2010 بواسطه سالم شباني

[الحسامي]

السلام عليكم

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

ومنها البرنامج الذي ذكرة الاخ الحبيب سالم شباني جزاه الله خيرا

وهنا اخي برنامج وكود بسيط جدا جدا لاظهار الصور وفي البرنامج شرح كامل وشامل لآلية عمل البرنامج

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

شرح برنامج الصور.rar

[BACHA22]

السلام عليكم شكرا لكم

جربت العملية على ملف ولم انجح ارجو توضيح الخطا

على هذا الملف

BACHA.rar

[الحسامي]

السلام الكريم

انت لم تتقيد بالشرح السابق والاخطاء التي وقعت بها :

اولا : هذا الكود ActiveSheet.Shapes([o2]).Visible = True

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

بواسطة الخلية المرتبطة بقائمة الاسماء والتي استخدمنا بها دالة ال VlookUP

والتي هي لديك الخلية (F5) ... وبالتالي يجب عليك تغيير الكود السابق الى الكود

ActiveSheet.Shapes([F5]).Visible = True

ثانيا انت في مثالك ادخلت في الجدول اسماء 33 صورة وليس لديك الا 4 صور

ثالثا في الكود For i = 2 To 13

هذه الارقام تمثل عدد الصور التي لديك والرقم الاول يمثل رقم اول صورة

والرقم الثاني يمثل رقم اخر صورة وانت لديك الصور تبدأ من الرقم 1 وتنتهي بالرقم 33

وبالتالي هذا السطر يجب ان يتم تغييره الى For i = 1 To 33

ملاحظة : ضع هذا السطر في بداية الاكواد وذلك لتفادي الاخطاء الشكلية

On Error Resume Next

مرفق الملف شامل التعديلات

GFGFGFG99.rar

[BACHA22]

باراك الله فيك الأخ الحسامي

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

و ألف شكر و دمت وفيا لنا و للمنتدى و الله حقا أنت محترف

وكم يسرني التعامل معك و استشارتك في المواضيع الصعبة

تم تعديل يونيو 29, 2010 بواسطه BACHA22