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

[anhtuan1066]

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:

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:

=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

 

[nguyenduong109]

Sao khi in không thấy ảnh ạ

 

[sonhn8800]

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:

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:

=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

Cảm ơn bác, hàm này của bác giúp em nhiều lắm.
Nhưng nếu em muốn chèn ảnh mà giữ nguyên kích thước file ảnh (ví dụ ảnh theo chiều ngang 10*15cm, chèn vào ô vẫn giữ nguyên là 10*15cm khi in ra, ảnh theo chiều đứng là 15*10cm in ra vẫn là ảnh đứng ) thì làm thế nào hả bác ?
Cảm ơn bác nhiều

 

[ppc0312]

Cảm ơn bác, hàm này của bác giúp em nhiều lắm.
Nhưng nếu em muốn chèn ảnh mà giữ nguyên kích thước file ảnh (ví dụ ảnh theo chiều ngang 10*15cm, chèn vào ô vẫn giữ nguyên là 10*15cm khi in ra, ảnh theo chiều đứng là 15*10cm in ra vẫn là ảnh đứng ) thì làm thế nào hả bác ?
Cảm ơn bác nhiều

Thì sửa .Width hay .Height, hay cả 2 trên đó

 

[sonhn8800]

Thì sửa .Width hay .Height, hay cả 2 trên đó

Cảm ơn bác nhưng đống ảnh của em có cả ảnh đứng (cao 15, rộng 10cm) và ảnh nằm (cao 10, rộng 15cm). Em muốn mớ ảnh này được chèn tự động, ảnh đứng vẫn đứng, ảnh nằm vẫn nằm theo kích thước thực của ảnh (10cmx15cm) chứ k bị fit theo ô bác ạ. Em k biết làm thế nào để chỉnh

 

[batman1]

Cảm ơn bác nhưng đống ảnh của em có cả ảnh đứng (cao 15, rộng 10cm) và ảnh nằm (cao 10, rộng 15cm). Em muốn mớ ảnh này được chèn tự động, ảnh đứng vẫn đứng, ảnh nằm vẫn nằm theo kích thước thực của ảnh (10cmx15cm) chứ k bị fit theo ô bác ạ. Em k biết làm thế nào để chỉnh

Bài #2 và #4 - nhập CENTER

Giúp đỡ mình tìm hàm trả ra kết quả là hình ảnh.

Công ty mình có trên 7000 bản vẽ kĩ thuật, việc tra cứu và triển khai cho NV làm thực sự tốn quá nhiều thời gian .Mỗi bản vẽ được đặt tên mã. Bản vẽ sẽ được chứa trong 1 folder ( Ví dụ ổ D ) Mình mong muốn là tạo ra 1 file excel khi gõ tên mã sẽ hiện ra bản vẽ đó . Khi cần sẽ gõ tên mã khác và...

www.giaiphapexcel.com

 

[hoang_dr]

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:

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:

=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 các bạn. tôi mới học excel để làm văn phòng, chưa biết gì. hôm nay thấy các bạn hướng dẫn trong này tôi cũng xin phép nhờ các bạn hướng dẫn giúp tôi. tôi được gửi file ảnh và file danh sách nhân viên (tệp đính kèm) vấn đề là nếu đánh từng tên sẽ rất lâu, có cách nào làm tự động được không ạ. tôi xin cảm ơn.

 

[nongtanduc]

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:

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:

=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

Sao em làm như anh nhưng khi in không hiện lên hình vậy? mong anh chỉ giúp!

 

[BuiQuangThuan]

Sao em làm như anh nhưng khi in không hiện lên hình vậy? mong anh chỉ giúp!

Không nhầm thì khi in bạn phải cài đặt lại 1 chú
t:

 

[nongtanduc]

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:

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:

=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

Không nhầm thì khi in bạn phải cài đặt lại 1 chú
t: View attachment 237330

thanks anh
Em in được rồi nhưng khi lưu code lại để sử dụng lần sau thì lưu không được?

 

[BuiQuangThuan]

Cảm ơn anh
Em in được rồi nhưng khi lưu code lại để sử dụng lần sau thì lưu không được?

Bạn lưu file đang xlsm hoặc xlsb thì sẽ sử dụng được code nhé

 

[Phamvanchat]

Các anh chị cho em hỏi, không có hình ở folder mà lại có hình ở sheets khác, thì làm sao để áp dụng hàm ạ, như file của em hình các ngày từ 1- 30 lấy hình ở sheet tổng hợp, Cột D ở sheet tổng hợp giống với cột D ở các sheets ngày. Xin giúp đỡ ạ, em rất cám ơn.

 

[emlahp3]

Các ac cho em hỏi khi filter hoặc sorting thì bị lỗi "fix object will moved" lặp đo lặp lại nhiều lần. Có cao thủ nào hỗ trợ em được không ạ?
Em cám ơn!

 

[nhuvn09]

Anh ơi cho em hỏi là khi chèn hình được rồi nhưng hình ảnh không thể hiện khi in thì xử lý như thế nào ạ

 

[kan1231]

Anh ơi cho em hỏi là khi chèn hình được rồi nhưng hình ảnh không thể hiện khi in thì xử lý như thế nào ạ

bài gần nhất #228 có hướng dẫn setup để in ra ảnh đấy bạn