Bẫy lỗi code nhập ảnh

[thanh_tks]

Chào Các bạn!
mình có một mẫu nhập ảnh thẻ nhờ các bạn giúp!
Trong trường hợp không có tên ảnh hoặc không có ảnh thì mình dùng

On Error Resume Next

để code thực thi tiếp dòng lệnh ngay sau ,nhưng có một bất cập là ảnh trước đó vẫn lưu lại.vậy có cách nào để ảnh cũ đó "biến" đi và thay vào đó là nền mặc định.
Các bạn xem file đính kèm và sửa giúp cho mình nhé!
TKS

 

[ndu96081631]

Chào Các bạn!
mình có một mẫu nhập ảnh thẻ nhờ các bạn giúp!
Trong trường hợp không có tên ảnh hoặc không có ảnh thì mình dùng

On Error Resume Next

để code thực thi tiếp dòng lệnh ngay sau ,nhưng có một bất cập là ảnh trước đó vẫn lưu lại.vậy có cách nào để ảnh cũ đó "biến" đi và thay vào đó là nền mặc định.
Các bạn xem file đính kèm và sửa giúp cho mình nhé!
TKS

Mổi cell Comment bạn làm 1 code, vậy không ổn rồi ---> Có 100 cell chắc 100 đoạn code sao?
Vòng lập For bạn à:

Sub nhaphinh()
  Dim ComCel As Range
  On Error Resume Next
  For Each ComCel In Sheet1.Cells.SpecialCells(1)
    With ComCel.Comment.Shape.Fill
      .Solid
      .UserPicture ThisWorkbook.Path & "\" & ComCel
    End With
  Next
End Sub

Mấy Comment thì code cũng chỉ có thế thôi!
Ah... mà sao bạn không đặt code vào sự kiện Worksheet_Change? Chỉ cần chọn Validation là có hình ngay, khỏi phải bấm Button

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ComCel As Range
  If Target.Address = "$AY$5" Then
    On Error Resume Next
    For Each ComCel In Sheet1.Cells.SpecialCells(1)
      With ComCel.Comment.Shape.Fill
        .Solid
        .UserPicture ThisWorkbook.Path & "\" & ComCel
      End With
    Next
  End If
End Sub

 

[thanh_tks]

Mổi cell Comment bạn làm 1 code, vậy không ổn rồi ---> Có 100 cell chắc 100 đoạn code sao?
Vòng lập For bạn à:

Sub nhaphinh()
  Dim ComCel As Range
  On Error Resume Next
  For Each ComCel In Sheet1.Cells.SpecialCells(1)
    With ComCel.Comment.Shape.Fill
      .Solid
      .UserPicture ThisWorkbook.Path & "\" & ComCel
    End With
  Next
End Sub

Mấy Comment thì code cũng chỉ có thế thôi!
Ah... mà sao bạn không đặt code vào sự kiện Worksheet_Change? Chỉ cần chọn Validation là có hình ngay, khỏi phải bấm Button

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ComCel As Range
  If Target.Address = "$AY$5" Then
    On Error Resume Next
    For Each ComCel In Sheet1.Cells.SpecialCells(1)
      With ComCel.Comment.Shape.Fill
        .Solid
        .UserPicture ThisWorkbook.Path & "\" & ComCel
      End With
    Next
  End If
End Sub

Vâng cám ơn anh rất nhiều!
Cái khoản này em cũng mới bập bẹ, đi cóp nhặt về chỉnh sửa nên mới ra thế.
em cũng đã thử đưa vào Worksheet_Change nhưng nó cứ "đơ đơ" nên mới tống nó vào module.
một lần nữa cám ơn anh!