فایل ضمیمه دارای یه سری لینک تو هر سلول که میخوام بطور اتوماتیک، هر لینکی عکسش تو سلول روبه رو لود بشه.
لطفا پاسخ بدید مثل پرسش قبلیم که هیچ کس علیکم بهش نگفت.
ممنونم
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|





Sub InsertPicture()
Dim v, pt As String
pt = ThisWorkbook.Path & "\pic2"
For i = 1 To 6
v = pt & "\" & Range("a" & i).Text & ".jpg"
ActiveSheet.Pictures.Insert(v).Select
With selction
Selection.ShapeRange.Width = Cells(i, 2).Width
Selection.ShapeRange.Height = Cells(i, 2).Height
Selection.ShapeRange.Left = Cells(i, 2).Left + 5
Selection.ShapeRange.Top = Cells(i, 2).Top
End With
Next
End Sub



کامنت