اذهب الي المحتوي
أوفيسنا

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

×
×
  • اضف...

Important Information