Cần giúp: Chèn tự động ảnh vào comment trên excel

Liên hệ QC
Em chào các bác.
cách chèn ảnh vào comment em cũng có biết. Và cách làm ấy là thủ công chèn từng ảnh một vào tùng commment.
Các các cho em hỏi là có cách nào chèn tự động không ah. Kiểu như khi mình nhập tên cảu môt file ảnh (VD anh1) vào ô excel ấy thì tự động thêm cái ảnh ấy vào comment của ô đó không ah.
E, xin cám ơn.
Chịu khó đọc hết cái topic này từ trên xuống thì thấy ngay
 
Ngắn gọn vầy đi:
Mã:
Private Sub Image2Comment(ByVal PicPath As String, ByVal PicCel As Range)
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  PicCel.Comment.Delete
  If fso.FileExists(PicPath) Then
    On Error GoTo 0
    PicCel.AddComment vbLf
    PicCel.Comment.Shape.Fill.UserPicture PicPath
  End If
End Sub
Sub Main()
  Dim PicPath As String, cel As Range
  PicPath = ThisWorkbook.Path & "\"
  For Each cel In Range("A2:A2000")
    Image2Comment PicPath & cel.Text & ".png", cel
  Next
End Sub
Em chào thầy.
Code này em làm thì được rồi. Nhưng có một vấn đề là khi em thêm một ảnh mới vào thì lại phải chạy lại code thì mới có tác dụng. Còn không chạy lại code thì không tự động them ảnh vào comment.
Thầy có cách nào sửa lại một chút để khi em thêm ảnh vào thì nó tự động thêm ảnh vào comment của ô đó.
Em xin cám ơn
 
Em chào thầy.
Code này em làm thì được rồi. Nhưng có một vấn đề là khi em thêm một ảnh mới vào thì lại phải chạy lại code thì mới có tác dụng. Còn không chạy lại code thì không tự động them ảnh vào comment.
Thầy có cách nào sửa lại một chút để khi em thêm ảnh vào thì nó tự động thêm ảnh vào comment của ô đó.
Em xin cám ơn
Bạn nói thêm ảnh vào là vào đâu?
 
Vậy làm mình tưởng bạn biết bạn ấy muốn vậy và bạn nói lại cho mình nghe ah
Tôi thấy bạn hỏi một điều mà tôi biết họ đã viết rõ rồi nên trích lại cho bạn biết thôi.
Mà đọc bài 21 thì thấy bạn cũng đã đọc bài 20. Thế mà bạn còn hỏi.
Thôi, tôi không đôi co với bạn làm gì. Chắc chắn vấn đề của chủ thớt tôi hiểu và làm được. Không cần sự chỉ bảo của bạn
 
Tôi thấy bạn hỏi một điều mà tôi biết họ đã viết rõ rồi nên trích lại cho bạn biết thôi.
Mà đọc bài 21 thì thấy bạn cũng đã đọc bài 20. Thế mà bạn còn hỏi.
Thôi, tôi không đôi co với bạn làm gì. Chắc chắn vấn đề của chủ thớt tôi hiểu và làm được. Không cần sự chỉ bảo của bạn
Thành thật xin lỗi bạn... Mình sai rồi.
Bạn nói làm mình đã đọc lại, và đúng là thớt đã nói rõ và mình đã không đọc kỹ.
Mình thật sự không phải chỉ bảo bạn đâu, xin bạn đừng hiểu nhầm, mình sai vì nghĩ là bạn @fso56 hỏi và mình trả lời theo quán tính mà thôi.
Lúc bạn viết bài #26 mình mới thấy đó là bạn @batman1 đã viết!
Một lần nũa xin lỗi vì làm bạn phiền lòng. Mong bạn bỏ qua sai sót của mình.
 
Không biết đã đóng Topic này chưa, có tiện không khi mà mình không mở mở topic mới.
Em muốn nhờ mọi người thêm comment vào activecell có ảnh là clipboard thì có được không ạ? Cám ơn mọi người.
 
Không biết đã đóng Topic này chưa, có tiện không khi mà mình không mở mở topic mới.
Em muốn nhờ mọi người thêm comment vào activecell có ảnh là clipboard thì có được không ạ? Cám ơn mọi người.
Đọc chủ đề và thử ghi macro tôi thấy lấy ảnh từ clipboard không được. Bạn có thể đi đường vong bằng cách dán ra Paint lưu lại rồi lấy Path đưa vào code.
 
Web KT
Back
Top Bottom