Hỏi cách làm macro chèn hình có điều kiện. (1 người xem)

[xuantruongx]

Mình đã tham khảo và tìm dc vài macro huu dung, nhung chua hoan hao, moi cai co lỗi rie6ng.
Mong ai đó viết giúp mình 1 macro nhu sau :
- Cot A : tên file hinh.
- Các hình đều lưu 1 nơi
- Khi chay macro: Cot B sẽ auto chen hình vào . Hinh dc chèn sẽ resize be ngang bằng với độ rộng Cột B. Chiều dài Row sẽ auto bằng với chiều cao của hình.
- Nếu không tìm thấy hình, sẽ thêm vào đoạn text "No IMG"
Macro có thể chạy từng ô 1 hoặc 1 lần cả 1 sheet.

Sub ChenHinh()Dim cell, shp As Shape, target As Range
'On Error Resume Next
    myurl = "P:\PHONG\Photos\"
    Set Rng = ActiveSheet.Range("d2:d50") ' range with names
    For Each cell In Rng
        filenam = myurl & cell & ".jpg"
   '    If filenam = True Then
       ActiveSheet.Pictures.Insert(filenam).Select


      Set shp = Selection.ShapeRange.Item(1)
       With shp
        '  .Top = ActiveCell.Top + 4
        '  .Left = ActiveCell.Left + 4
          .LockAspectRatio = msoTrue
        '  .Width = ActiveCell.Width - 4
        '  .Height = 50
        .Placement = xlMoveAndSize
          .Cut
       End With
       Cells(cell.Row, cell.Column - 1).PasteSpecial
 '      Else
  '     Cells(cell.Row, cell.Column - 1).Value = "No Image"
  '     End If
    Next

Doan code tren dung dc voi dieu kien ô nào cung có hình. Nếu có 1 o ko chèn đc hình là sẽ gap lỗi chèn nhầm vi trí.

 

[xuantruongx]

Nhờ ad close toppic. Minh đã fix dc ! cám ơn !