Đưa hình ảnh vào ghi chú (comment) trong MSE

[kasonal]

Hỏi mãi mà không có cao thủ nào trả lời được à ????

Các anh chị cho em hỏi: Có cách nào để làm 1 cái comment mà khi rê chuột tới nó hiện ra cái hình (chứ không phải text) trong đó không ???

 

[PhanTuHuong]

Lỗi này ngày trước tôi dùng Excel 95 cũng gặp. Sau đó màn hình Excel biến đổi loạn xạ.

Nghĩa của nó đại loại là "không đủ hệ thống tài nguyên để hiển thị hoàn chỉnh".
Theo tôi, có thể là do lỗi phần mềm Excel hoặc xung đột hệ thống trong máy của bạn. Bạn thử cài lại xem sao?

Chúc ... hết bệnh!

Còn bạn muốn hiện hình ra thì mặc định không có, may ra thì dùng VBA thì được. Bạn có thể tải file để nghiên cứu

http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=59&d=1153043058

 

[kasonal]

Ban vao Data- Validation nhap noi dung cua comment trong input message

Bạn hiểu sai ý tôi rồi ! Ý tôi muốn là làm sao chèn 1 cái hình vô cửa sổ Comment chứ không phải gõ chữ vô !!!

 

[SA_DQ]

http://www.ozgrid.com/forum/showthread.php?t=36653&highlight=picture+comment

Tôi muốn là làm sao chèn 1 cái hình vô cửa sổ Comment chứ không phải gõ chữ vô !!!

/(hi lang thang trên xa lộ, tình cờ lượm được cái này, bạn nghía cái nha:
http://www.ozgrid.com/forum/showthread.php?t=36653&highlight=picture+comment
/(ể cũng hơn năm rồi không biết có fát triển khác không, bạn tìm thêm nha!

 

[saudiec]

Bạn có thể insert một picture vào comment theo cách đơn giản như sau:
- Tạo mới comment ở cell mà bạn muốn.
- Nhấp chuột phải vào đường bao của comment mới tạo, chọn Format comment --> hộp thoại Format comment hiện ra --> Bạn chọn tab Colors and lines --> Trong mục Fill, bạn nhấn vào mũi tên ở mục Color và chọn Fill effect --> Hộp thoại Fill effect hiện ra --> Bạn chọn tab Picture và nhấn vào select picture --> tìm đường dẫn tới file picture mà bạn muốn --> Nhấn OK. Thế là xong.
Xin lỗi vì hơi bị dài dòng.
Chúc bạn vui.

 

[rockydatalone]

Tôi làm không được các bác ơi, cứ mỗi lần insert cái hình vào comment là chờ gần 1 phút (vì tôi lấy hình từ bên máy Sẹt vơ ). Các bác có cách nào làm cho nó nhanh hơn không mấy bác. Giúp em với!!!!

 

[ThuNghi]

Tôi làm không được các bác ơi, cứ mỗi lần insert cái hình vào comment là chờ gần 1 phút (vì tôi lấy hình từ bên máy Sẹt vơ ). Các bác có cách nào làm cho nó nhanh hơn không mấy bác. Giúp em với!!!!

Copy tất cả các hình từ Serve vào Folder mà có file cần insert hình.
Lần sau nhớ đừng đánh chữ "Sẹt vơ" nhạy cảm!

 

[quangthieu79]

Cảm ơn bạn saudiec, cho mình hỏi thêm tí: nếu đưa hình vào như bạn hướng dẫn thì file excel sẽ rất nặng nếu đưa hình số lượng nhiều, vậy làm cách nào dùng comment mà lại chỉ sử dụng liên kết đến file hình trong 01 thư mục khác (tức không chèn hẳn ảnh vào file)? Rất mong mọi người cùng chỉ giáo! Rất cảm ơn!

 

[ndu96081631]

Cảm ơn bạn saudiec, cho mình hỏi thêm tí: nếu đưa hình vào như bạn hướng dẫn thì file excel sẽ rất nặng nếu đưa hình số lượng nhiều, vậy làm cách nào dùng comment mà lại chỉ sử dụng liên kết đến file hình trong 01 thư mục khác (tức không chèn hẳn ảnh vào file)? Rất mong mọi người cùng chỉ giáo! Rất cảm ơn!

Xin thưa là.. hỏng có
Đưa hình vào là đưa luôn chứ hỏng có link ---> Vả lại bạn có thể viết code để mỗi khi cần xem hình nào thì chỉ hình đó hiện lên, sao nặng được!

 

[beray3088]

Vậy ngược lại chúng ta muốn lấy hình từ những comment nay thì có được không ạh. Mong các thành viên GPE phản hồi. Thân mến!

Xin thưa là.. hỏng có
Đưa hình vào là đưa luôn chứ hỏng có link ---> Vả lại bạn có thể viết code để mỗi khi cần xem hình nào thì chỉ hình đó hiện lên, sao nặng được!

 

[ndu96081631]

Vậy ngược lại chúng ta muốn lấy hình từ những comment nay thì có được không ạh. Mong các thành viên GPE phản hồi. Thân mến!

Cũng có thể được.
Ví dụ cell E1 đang có comment, ta dùng code này copy picture sang M1

Sub Test()
  With Range("E1").Comment
    .Visible = True
    .Shape.CopyPicture
    Range("M1").PasteSpecial
    .Visible = False
  End With
End Sub

 

[beray3088]

Cảm ơn anh ndu96081631 với câu trả lời sát tưởng chừng không thể sát hơn^^.Vậy trong trường hợp tổng quát nhất anh có thể cho code của anh duyệt toàn bộ workbook tự động insert column bên cạnh cột có comment và dán hình vào đó được không ạh. Nếu được vậy thì code của anh sẽ giải quyết tương đối hầu hết các dạng mà tôi và các bạn có thể gặp. Một lần nữa xin cảm ơn anh trước.

Cũng có thể được.
Ví dụ cell E1 đang có comment, ta dùng code này copy picture sang M1

Sub Test()
  With Range("E1").Comment
    .Visible = True
    .Shape.CopyPicture
    Range("M1").PasteSpecial
    .Visible = False
  End With
End Sub

 

[ndu96081631]

Cảm ơn anh ndu96081631 với câu trả lời sát tưởng chừng không thể sát hơn^^.Vậy trong trường hợp tổng quát nhất anh có thể cho code của anh duyệt toàn bộ workbook tự động insert column bên cạnh cột có comment và dán hình vào đó được không ạh. Nếu được vậy thì code của anh sẽ giải quyết tương đối hầu hết các dạng mà tôi và các bạn có thể gặp. Một lần nữa xin cảm ơn anh trước.

Code cho 1 comment làm được thì đương nhiên nhiều comment cũng thế thôi
Đại khái thế này cũng được

Sub Test()
  Dim Clls As Range, sht As Worksheet
  On Error Resume Next
  For Each sht In ThisWorkbook.Worksheets
    For Each Clls In sht.UsedRange.SpecialCells(1)
      With Clls.Comment
        .Visible = True
        .Shape.CopyPicture
        .Parent.Offset(, 1).PasteSpecial
        .Visible = False
      End With
    Next
  Next
End Sub

 

[xiaoshang23085]

Bạn có thể insert một picture vào comment theo cách đơn giản như sau:
- Tạo mới comment ở cell mà bạn muốn.
- Nhấp chuột phải vào đường bao của comment mới tạo, chọn Format comment --> hộp thoại Format comment hiện ra --> Bạn chọn tab Colors and lines --> Trong mục Fill, bạn nhấn vào mũi tên ở mục Color và chọn Fill effect --> Hộp thoại Fill effect hiện ra --> Bạn chọn tab Picture và nhấn vào select picture --> tìm đường dẫn tới file picture mà bạn muốn --> Nhấn OK. Thế là xong.
Xin lỗi vì hơi bị dài dòng.
Chúc bạn vui.

Mình làm theo hướng dẫn của bạn được rồi, cảm ơn bạn rất nhiều