اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

SADFSDFSDF

عضو جديد 01
  • Posts

    2
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو SADFSDFSDF

  1. السلام عليكم اخواني الاعزاء انا عندي الكود ده في الاكسل علشان عند اضافة الاسم في الخليه يتم الظهار الصوره ولاكن المشكله عندي ان لايتم عرضالصوره بمجرد لصق الاسم ولاكن لازم اعمل دبل كلك بالماوس ثم اننتر علشان تظهر الصوره "المطلوب هوه عند لصق الاسم في الخليه يتم ادراج الصور وشكرا" 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
  2. مشكور ويعطك العافيه وجزاك الله خير عندي سوال بسيط اذا تسمح
×
×
  • اضف...

Important Information