كيف يتم اضافة صور جديدة الى هذا الملف؟

[Al-Raadi]

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

 

 

كيف يتم اضافة صور جديدة الى هذا الملف ؟

وكيف يتم اظهار الصور المخزونة في هذا الملف؟

وكيف تم تحويل الصور في هذا الملف الى نص ؟

البيانات مع الصورة.xls

[محمد هشام.]

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

لاظافة صور جديدة او استبدالها يجب عليك اتباع الخطوات التالية  

 

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

[Al-Raadi]

الله يعطيك الصحه والعافيه  شكرا على جهودك يا استاذ محمد هشام

😘