Sub Button21_Click()
    Dim wsStock As Worksheet
    Dim wsSalesRec As Worksheet
    Dim code As String
    Dim imagePath As String
    Dim imgObj As Picture
    
    ' تعيين الشيتات
    Set wsStock = ThisWorkbook.Sheets("stock")
    Set wsSalesRec = ThisWorkbook.Sheets("sales_rec")
    
    ' الحصول على الكود من الخانة G6 في شيت sales_rec
    code = wsSalesRec.Range("G6").Value
    
    ' الحصول على مسار الصورة من العمود L في شيت stock بناءً على الكود
    Dim lastRow As Long
    lastRow = wsStock.Cells(wsStock.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 3 To lastRow
        If wsStock.Cells(i, "A").Value = code Then
            imagePath = wsStock.Cells(i, "L").Value
            Exit For
        End If
    Next i
    
    ' فتح الصورة وإظهارها في المربع Image1 في شيت sales_rec
    If imagePath <> "" Then
        ' إدراج الصورة مباشرة في الشيت وتحديد الأبعاد والموضع
        Set imgObj = wsSalesRec.Pictures.Insert(imagePath)
        With imgObj
            .ShapeRange.LockAspectRatio = msoFalse ' قفل النسبة المئوية للصورة لتكون محددة بواسطة الأبعاد المحددة
            .Width = wsSalesRec.Shapes("Image1").Width ' تحديد العرض بنفس عرض المربع Image1
            .Height = wsSalesRec.Shapes("Image1").Height ' تحديد الارتفاع بنفس ارتفاع المربع Image1
            ' وضع موضع الصورة بنفس موضع المربع Image1
            .Top = wsSalesRec.Shapes("Image1").Top
            .Left = wsSalesRec.Shapes("Image1").Left
        End With
    Else
        MsgBox "لا يوجد مسار للصورة لهذا الكود."
    End If
End Sub