Nhờ sửa code hiển thị hình. (1 người xem)

[iloveit]

Chào các anh chị và các bạn. Trong file đính kèm tôi có đoạn code hiển thị hình ảnh như sau mà không biết sai ở chỗ nào mà hình ảnh không hiển thị được. Nhờ các anh chị và các bạn giúp tôi sửa đoạn code trong file.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Picname As String
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect([R4], Target) Is Nothing Then
Set Rng = Sheets(1).Range(Sheets(1).[B11], Sheets(1).[B1000].End(xlUp))
Picname = ThisWorkbook.Path & "\Hinh\" & Rng.Find(Target).Offset(, 11)
'Xoa anh da chon o lan truoc di
Sheets(2).Shapes([B7].Address).Delete
'Dinh kich thuoc anh
[B7].Select
With ActiveSheet.Pictures.Insert(Picname)
'.Name = Target.Offset(1, 0).Address
.Name = [B7].Address
'.Left = Target.Offset(1, 0).Left: Top = Target.Offset(1, 0).Top
.Left = [B7].Left: Top = [B7].Top
.Width = 110 '(pixcels) <-- dieu chinh be rong
.Height = 115 '(pixcels) <-- dieu chinh chieu cao
End With
'Di chuyen hinh vao trong khung:
ActiveSheet.Shapes("$B$7").IncrementTop 2#
ActiveSheet.Shapes("$B$7").IncrementLeft 2.5
End If
Application.ScreenUpdating = True
End Sub

Trong file tôi muốn khi chọn mã sinh viên trong ô R4 thì hình ảnh hiển thị tướng ứng ở ô B7.
Trân trọng cám ơn.

 

[iloveit]

Do thiếu 1 cột trong Sheet 1 nên hình không hiển thị được. Nay tôi làm được rồi. Cảm ơn mọi người đã xem.