SADFSDFSDF

 السلام عليكم اخواني الاعزاء انا عندي الكود ده في الاكسل علشان عند اضافة الاسم في الخليه يتم الظهار الصوره ولاكن المشكله عندي ان لايتم عرضالصوره بمجرد لصق الاسم ولاكن لازم اعمل دبل كلك بالماوس ثم اننتر علشان تظهر الصوره "المطلوب هوه عند لصق الاسم في الخليه يتم  ادراج الصور وشكرا"
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row Mod 20 = 0 Then Exit Sub
On Error GoTo son
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select
Selection.Top = Target.Offset(0, 2).Top
Selection.Left = Target.Offset(0, 9).Left
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Target.Offset(0, 2).Height
Selection.ShapeRange.Width = Target.Offset(0, 9).Width
Target.Offset(1, 0).Select
son:

Insert_Image-.rar