Chèn hình vào cell bằng hàm tự tạo

anhtuan1066 · 9/7/11

Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:

Mã:

Function CommPic(Pic As String, Cel As Range) As String
  On Error Resume Next
  Application.Volatile
  Cel.Comment.Delete
  If Cel.Comment Is Nothing Then Cel.AddComment
  Cel.Comment.Text vbLf
  With Cel.Comment.Shape
    .Left = Cel.Left: .Top = Cel.Top: .Visible = True
    .Width = Cel.Width: .Height = Cel.Height
    .Fill.UserPicture Pic
  End With
End Function

Thí nghiệm:
- Mở Excel, chèn code trên vào module, xong lưu file vào 1 thư mục nào đó
- Copy 1 số hình vào cùng thư mục chưa file Excel (file của tôi có 4 hình AT01.jpg, AT02.jpg, AT03.jpg và AT04.jpg)
- Gõ công thức này vào cell B3:

PHP:

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Xem thử hình đã được Add vào có ngoạn mục không?
Hy vọng tạo sự dễ dàng cho các bạn, những ai quan tâm đến việc chèn hình ảnh vào bảng tính

vitbau86 · 19/9/11

các bác ơi, em muốn hide dòng chứa hàm thì ảnh cũng hide theo luôn thì làm thế nào vậy?

ndu96081631 · 19/9/11

vitbau86 đã viết:
các bác ơi, em muốn hide dòng chứa hàm thì ảnh cũng hide theo luôn thì làm thế nào vậy?

Đương nhiên nó là vậy rồi! Hàm và hình nằm cùng 1 cell, bạn ẩn dòng chứa hàm chẳng lẽ hình không ẩn hay sao chứ?

vitbau86 · 19/9/11

hình nó ko bị ẩn, nó chỉ bị hẹp theo chiều cao thôi !$@!!

Hoàng Trọng Nghĩa · 19/9/11

vitbau86 đã viết:
hình nó ko bị ẩn, nó chỉ bị hẹp theo chiều cao thôi

Đúng vậy! Đó là do thuộc tính shape, bạn có thể cài đặt trong properties

ducdinh1987 · 21/9/11

anhtuan1066 đã viết:
Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:

Mã:

Function CommPic(Pic As String, Cel As Range) As String On Error Resume Next Application.Volatile Cel.Comment.Delete If Cel.Comment Is Nothing Then Cel.AddComment Cel.Comment.Text vbLf With Cel.Comment.Shape .Left = Cel.Left: .Top = Cel.Top: .Visible = True .Width = Cel.Width: .Height = Cel.Height .Fill.UserPicture Pic End With End Function

Thí nghiệm:
- Mở Excel, chèn code trên vào module, xong lưu file vào 1 thư mục nào đó
- Copy 1 số hình vào cùng thư mục chưa file Excel (file của tôi có 4 hình AT01.jpg, AT02.jpg, AT03.jpg và AT04.jpg)
- Gõ công thức này vào cell B3:

PHP:

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Xem thử hình đã được Add vào có ngoạn mục không?
Hy vọng tạo sự dễ dàng cho các bạn, những ai quan tâm đến việc chèn hình ảnh vào bảng tính

chào anh!
cho em hỏi mình không dùng trong 1 cel nữa mà mình dùng kết hợp từ A2

5 thì sửa hàm sao.
cảm ơn!

ndu96081631 · 21/9/11

ducdinh1987 đã viết:
chào anh!
cho em hỏi mình không dùng trong 1 cel nữa mà mình dùng kết hợp từ A25 thì sửa hàm sao.
cảm ơn!

Kết hợp nghĩa là sao đây? Không hiểu!
Hay ý bạn muốn cho hình nằm trong vùng A2

5? Nếu vậy thì Merge A2

5 ---> Xem bài 10 đi

ducdinh1987 · 26/9/11

cho mình bàn thêm vấn đề này tí nhé.
Mình đọc bài 1o và dùng như vậy, nhưng khi mình không muốn cho ai sửa bằng cách: protect sheet (không cho chỉnh sửa), thì khi đó hình không lên.
Anh, chị nào có thể giải thích tại sao hoặc khắc phục nó hiện lên được thế nào không chỉ cho em với. em cảm ơn. (em có gởi kèm theo file ví dụ)

ndu96081631 · 27/9/11

ducdinh1987 đã viết:
cho mình bàn thêm vấn đề này tí nhé.
Mình đọc bài 1o và dùng như vậy, nhưng khi mình không muốn cho ai sửa bằng cách: protect sheet (không cho chỉnh sửa), thì khi đó hình không lên.
Anh, chị nào có thể giải thích tại sao hoặc khắc phục nó hiện lên được thế nào không chỉ cho em với. em cảm ơn. (em có gởi kèm theo file ví dụ)

Khi hộp Protect sheet hiện ra, hãy check mục "Edit Objects"

Nói thiệt, mình quá chán với những bài có liên quan đến Protect ---> Chả được cái tích sự gì

uronmapu · 20/12/11

anhtuan1066 đã viết:
Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:

Mã:

Function CommPic(Pic As String, Cel As Range) As String On Error Resume Next Application.Volatile Cel.Comment.Delete If Cel.Comment Is Nothing Then Cel.AddComment Cel.Comment.Text vbLf With Cel.Comment.Shape .Left = Cel.Left: .Top = Cel.Top: .Visible = True .Width = Cel.Width: .Height = Cel.Height .Fill.UserPicture Pic End With End Function

Thí nghiệm:
- Mở Excel, chèn code trên vào module, xong lưu file vào 1 thư mục nào đó
- Copy 1 số hình vào cùng thư mục chưa file Excel (file của tôi có 4 hình AT01.jpg, AT02.jpg, AT03.jpg và AT04.jpg)
- Gõ công thức này vào cell B3:

PHP:

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Xem thử hình đã được Add vào có ngoạn mục không?
Hy vọng tạo sự dễ dàng cho các bạn, những ai quan tâm đến việc chèn hình ảnh vào bảng tính

Xin hỏi làm thế nào mà bỏ đi đc cái comment nhỉ

techmodule · 30/12/11

anhtuan1066 đã viết:
Xưa nay người ta thường chèn hình vào bảng tính bằng 1 thủ tục nào đó (Sub...). Vậy các bạn có nghĩ rằng có thể chèn hình bằng hàm tự tạo không? Tức là ta gõ hàm vào cell, lập tức hình được chèn vào ngay cell ấy!
Ví dụ ta gõ thế này: =CommPic("D:\Pic\Hinh 1.jpg",C5) thì lập tức Hinh 1.jpg được chèn vừa vặn vào cell C5
Hấp dẫn nhỉ? Vậy mà code lại khá đơn giản:

Mã:

Function CommPic(Pic As String, Cel As Range) As String On Error Resume Next Application.Volatile Cel.Comment.Delete If Cel.Comment Is Nothing Then Cel.AddComment Cel.Comment.Text vbLf With Cel.Comment.Shape .Left = Cel.Left: .Top = Cel.Top: .Visible = True .Width = Cel.Width: .Height = Cel.Height .Fill.UserPicture Pic End With End Function

Thí nghiệm:
- Mở Excel, chèn code trên vào module, xong lưu file vào 1 thư mục nào đó
- Copy 1 số hình vào cùng thư mục chưa file Excel (file của tôi có 4 hình AT01.jpg, AT02.jpg, AT03.jpg và AT04.jpg)
- Gõ công thức này vào cell B3:

PHP:

=LEFT(CELL("filename",A1),FIND("[",CELL("filename",A1))-1)

- Từ cell A5 trở xuống, gõ tên các file hình
- Tại cell B5, gõ công thức =$B$3&A5 và kéo fill xuống
- Tại cell C5, gõ công thúc =CommPic(B5,C5) và kéo fill xuống
Xem thử hình đã được Add vào có ngoạn mục không?
Hy vọng tạo sự dễ dàng cho các bạn, những ai quan tâm đến việc chèn hình ảnh vào bảng tính

Chào anh Tuấn, em dùng code anh viết nhưng khi in ra nó sẽ bị dời hình xuống 1 ô, ví dụ em dùng công thức này với ô B2, in ra nó sẽ nằm hình ở ô B3, anh có cách xử lí lỗi này không anh
Cảm ơn anh vì bài viết hay

tranduyphucvt · 17/5/12

anh Tuấn có thể thay đổi cho các hình đưa ra ngoài phía phải cell giống như thủ công không?
chỉ bao giờ mình rê con chuột vào thì mới nổi hình lên, thank anh Tuấn

tranduyphucvt · 17/5/12

Anh Tuấn viết code này rất hay,nhưng em muốn anh viết thêm một lệnh để chuyển hình sang bên phía phải ô chỉ khi nào mình rê chuột thì mới nổi hình lên, như vậy mới thuận tiện trong việc quản lý nhân viên không phải kéo giản hàng ra trông xấu. thank anh

ndu96081631 · 17/5/12

tranduyphucvt đã viết:
Anh Tuấn viết code này rất hay,nhưng em muốn anh viết thêm một lệnh để chuyển hình sang bên phía phải ô chỉ khi nào mình rê chuột thì mới nổi hình lên, như vậy mới thuận tiện trong việc quản lý nhân viên không phải kéo giản hàng ra trông xấu. thank anh

Thêm dòng này vào hàm CommPic là được rồi:
Application.DisplayCommentIndicator = -1

phathalo · 30/5/12

Có cách nào in được không hả các bác?

ndu96081631 · 31/5/12

phathalo đã viết:
Có cách nào in được không hả các bác?

Xem lại bài 14
Không chịụ đọc kỹ đã hỏi

firetiger486 · 2/6/12

Bác anhtuan1066

cho em hỏi là khi đưa được ảnh vào trong comment rồi em mốn nền ảnh là "No Fill" thì làm thế nào a?

Ngoai Thanh · 22/7/12

Đúng là trong 3 người cùng đi , có 1 người là thầy . xin cám ơn !

hatblue · 29/7/12

Em thấy trong file test của anh bắt buộc phải có file hình đi kèm theo trong folder thì hình chèn trong excel mới chạy được. Vậy anh cho em hỏi có cách nào không cần file hình đi chung với file excel mà hình vẫn chèn tự động được không? vì bản báo cáo của em file gửi qua mail công ty, nếu phải kèm theo file hình nữa thì kích thước file sẽ rất nặng. Anh giúp em với ! thanks Anh.

ndu96081631 · 29/7/12

hatblue đã viết:
Em thấy trong file test của anh bắt buộc phải có file hình đi kèm theo trong folder thì hình chèn trong excel mới chạy được. Vậy anh cho em hỏi có cách nào không cần file hình đi chung với file excel mà hình vẫn chèn tự động được không? vì bản báo cáo của em file gửi qua mail công ty, nếu phải kèm theo file hình nữa thì kích thước file sẽ rất nặng. Anh giúp em với ! thanks Anh.

Vậy theo bạn thì hình từ đâu mà có?
Có vài cách như sau:
1> Hình được cho vào 1 folder (như bài 1)
2> Hình được chèn thẳng vào trong 1 sheet nào đó trong file
3> Hình được đặt trên server mạng cty
Riêng với cách 2 thì cũng làm cho file nặng lên thêm vì dung lượng hình trong sheet và cũng không thể dùng cách này để chèn hình vào Comment
Cách 3 cũng khả thi nếu bạn biết lưu hình lên server
Ngoài ra, nếu máy tính của người nhận có kết nối internet, ta có thể post hình lên web (photobucket chẳng hạn) rồi chèn hình vào comment bằng link hình

linki · 21/4/13

Xung Đột với Checkbox

Em phát hiện ra code này bị xung đột với checkbox. Khi nhấn checkbox để tạo giá trị true/false file lập tức bị out khỏi excel.

Các anh xem có thể tìm ra nguyên nhân để khắc phục được không ;;;;;;;;;;;

. Code này rất hay em đang định dùng vào công việc của mình. cảm ơn các anh!

Chèn hình vào cell bằng hàm tự tạo

Thành viên gạo cội

File đính kèm

Thành viên chính thức

Huyền thoại GPE

Thành viên chính thức

Chuyên gia GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

File đính kèm

Huyền thoại GPE

Thành viên thường trực

Thành viên mới

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Thành viên mới

Cánh Diều xanh

Thành viên mới

Huyền thoại GPE

Thành viên mới

File đính kèm