Al-Raadi قام بنشر يناير 9 مشاركة قام بنشر يناير 9 السلام عليكم ورحمة الله وبركاته كيف يتم اضافة صور جديدة الى هذا الملف ؟ وكيف يتم اظهار الصور المخزونة في هذا الملف؟ وكيف تم تحويل الصور في هذا الملف الى نص ؟ البيانات مع الصورة.xls رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يناير 9 مشاركة قام بنشر يناير 9 وعليكم السلام ورحمة الله تعالى وبركاته لاظافة صور جديدة او استبدالها يجب عليك اتباع الخطوات التالية 1) اظهار الصور المخفية بواسطة الكود المرفق مع الملف 2) اعادة تسمية الصور على حسب احتياجاتك وقد تم شرح الطريقة في الرابط التالي https://streamable.com/ghw7yy اما بخصوص اخر سؤال المعادلة الموجودة في الخلية F3 =IF(D3="";"";VLOOKUP(D3;range1;3;0)) تقوم فقط بجلب اسم الصورة من شيت 2 العمود D المقابلة لقيمة الخلية D3 ورقة 1 ليس بتحويل الصورة الى نص وفي حدث ورقة 1 الكود التالي يقوم باخفاء جميع الصور والبقاء على الصورة الهدف بشرط قيمة الخلية F3 Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("F3") 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 البيانات مع الصورة 2.xls 2 رابط هذا التعليق شارك More sharing options...
Al-Raadi قام بنشر يناير 9 الكاتب مشاركة قام بنشر يناير 9 الله يعطيك الصحه والعافيه شكرا على جهودك يا استاذ محمد هشام 😘 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان