Chèn hình vào cell bằng hàm tự tạo (1 người xem)

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

HOANG 1978 · 22/7/11

Em cảm on anh Tuấn rất nhiều có được hàm này mọi công việc của em trở nên dễ dàng hơn

HOANG 1978 · 22/7/11

Anh Tuấn cho em hỏi thêm với code này nếu em muốn thay đổi kích cở hình em phải làm sao để cho ra được những hình ảnh theo ý muốn
Xin anh vui lòng chỉ điểm cho.

Cảm ơn anh nhiều,

ndu96081631 · 23/7/11

HOANG 1978 đã viết:
Anh Tuấn cho em hỏi thêm với code này nếu em muốn thay đổi kích cở hình em phải làm sao để cho ra được những hình ảnh theo ý muốn
Xin anh vui lòng chỉ điểm cho.

Cảm ơn anh nhiều,

Bạn chỉ cần thay đổi chiều cao, chiều rộng của cell mà bạn đang gõ hàm rồi bấm F9 là tự động hình sẽ được chỉnh theo kích thước mới của cell
Thử xem

cavoi54 · 27/7/11

Chèn hình động vào bản tính

Bạ n có cá ch nà o chè n hì nh độ ng và o bả n tinh duoc ko vay?

cavoi54 · 27/7/11

Đổi hình con trỏ chuột Excel

Làm sao đôỉ hình con trỏ chuột trong excel được?

ndu96081631 · 27/7/11

cavoi54 đã viết:
Bạ n có cá ch nà o chè n hì nh độ ng và o bả n tinh duoc ko vay?

Cách đơn giản là nhúng file Flash vào Excel (khỏi code)
----------------------

cavoi54 đã viết:
Làm sao đôỉ hình con trỏ chuột trong excel được?

Vào Control Panel để chỉnh, chẳng liên quan gì đến Excel cả

cavoi54 · 27/7/11

Nhúng file Flash vào excel tức là copy hay sao vậy bạn (làm phiền bạn một lần nữa vậy)

Hoàng Trọng Nghĩa · 27/7/11

cavoi54 đã viết:
Nhúng file Flash vào excel tức là copy hay sao vậy bạn (làm phiền bạn một lần nữa vậy)

Bạn xem đường dẫn này: http://www.giaiphapexcel.com/forum/...ao-để-lấy-flash-trong-Excel&p=16883#post16883

anhtuan1066 · 15/8/11

Nhân tiện có bạn thắc mắc về hàm này liên quan đến Merge cell tại đây:
http://www.giaiphapexcel.com/forum/...đồi-hình-ảnh-theo-danh-sách-và-insert-copy-đc
Tôi cải tiến lại hàm này như sau:

Mã:

Function CommPic(Pic As String, Cel As Range) As String
  Dim mRng As Range
  On Error Resume Next
  Application.Volatile
  Cel(1, 1).Comment.Delete
  If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
  Cel(1, 1).Comment.Text vbLf
  Set mRng = Cel(1, 1).MergeArea
  If mRng Is Nothing Then Set mRng = Cel(1, 1)
  With Cel(1, 1).Comment.Shape
    .Shadow.Visible = msoFalse '<--- Thêm vào nếu không muốn có Shadow
    .Line.Visible = msoFalse      '<--- Thêm vào nếu không muốn có đường viền
    .AutoShapeType = msoShapeRectangle  '<--- Thêm vào để che mũi tên đỏ trong cell
    .Left = mRng.Left: .Top = mRng.Top: .Visible = True
    .Width = mRng.Width: .Height = mRng.Height
    .Fill.UserPicture Pic
  End With
End Function

Cú pháp sử dụng vẫn như cũ

vitbau86 · 15/8/11

bác có thể làm biến mất hoàn toàn hay cho nó trong suốt cái mũi tên màu đen ko

tại vì em ko fill ảnh vừa khít cell mà cho nó nhỏ hơn cell, nếu ko nó sẽ che mất cái đường border của cell, vì thế nó bị lộ cái mũi tên ý

anhtuan1066 · 15/8/11

vitbau86 đã viết:
bác có thể làm biến mất hoàn toàn hay cho nó trong suốt cái mũi tên màu đen ko
View attachment 68450
tại vì em ko fill ảnh vừa khít cell mà cho nó nhỏ hơn cell, nếu ko nó sẽ che mất cái đường border của cell, vì thế nó bị lộ cái mũi tên ý
View attachment 68451

Không có cách nào làm mất mũi tên đỏ của Comment đâu bạn à, chỉ có cách thay đổi kiểu comment để che khuất nó thôi (như tôi đã làm)

duongbinhnghiep · 20/8/11

chen anh

Ban Tuan lam vay la tot roi ! Ban cho min hoi ! Lam xong rui minh view va xem sao khog hien thi anh gi het ! Vaylam sao in duoc anh do day Ban ! Giup min voi nhe! Cam on ban nhieu !

ndu96081631 · 21/8/11

duongbinhnghiep đã viết:
Ban Tuan lam vay la tot roi ! Ban cho min hoi ! Lam xong rui minh view va xem sao khog hien thi anh gi het ! Vaylam sao in duoc anh do day Ban ! Giup min voi nhe! Cam on ban nhieu !

Xem chi tiết tại đây:
http://www.giaiphapexcel.com/forum/...nh-sách-và-insert-copy-đc&p=334774#post334774
Lưu ý: Bạn viết bài không có dấu tiếng Việt có thể bị xóa nha

duongbinhnghiep · 28/8/11

Anh Tuan ơi ! Anh có cách nào hiển thị và in hình ảnh được luôn không ! Em chèn được mà khi in ra chẳng thấy gì hết ! Anh Giúp em với nhé ! Cám ơn anh nhiều !

ndu96081631 · 28/8/11

duongbinhnghiep đã viết:
Anh Tuan ơi ! Anh có cách nào hiển thị và in hình ảnh được luôn không ! Em chèn được mà khi in ra chẳng thấy gì hết ! Anh Giúp em với nhé ! Cám ơn anh nhiều !

Bạn đã hỏi ở bài 13 và cũng đã trả lời cho bạn tại bài 14 rồi còn gì! Không xem sao?

Hoàng Trọng Nghĩa · 28/8/11

anhtuan1066 đã viết:
Không có cách nào làm mất mũi tên đỏ của Comment đâu bạn à, chỉ có cách thay đổi kiểu comment để che khuất nó thôi (như tôi đã làm)

Mũi tên thì không thể làm mất, nhưng cái màu đỏ thì em cho nó biến được đấy Thầy!

Sử dụng một trong 3 thủ tục này:

Mã:

Sub Test()
'  Application.DisplayCommentIndicator = xlCommentIndicatorOnly
'  Application.DisplayCommentIndicator = xlCommentAndIndicator
  Application.DisplayCommentIndicator = [B]xlNoIndicator[/B]
End Sub

Nhưng tốt nhất KHÔNG sử dụng, vì mất công phải set nó lại hiện trạng ban đầu.

vitbau86 · 29/8/11

các bác ơi, chất lượng hình ảnh khi in ra rất kém, mờ lắm, có cách nào khắc phục ko nhỉ

ndu96081631 · 29/8/11

vitbau86 đã viết:
các bác ơi, chất lượng hình ảnh khi in ra rất kém, mờ lắm, có cách nào khắc phục ko nhỉ

Chất lượng hình tốt hay xấu là do nguồn hình của bạn thôi! Xem lại!

HOANG 1978 · 16/9/11

Em cảm ơn anh Tuấn nhiều phần anh cải tiên lại giúp em thay đổi kích cở hình linh hoạt hơn
Em cảm ơn anh Tuấn nhiều lắm.

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!

Hoàng Trọng Nghĩa · 21/4/13

linki đã viết:
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!

Tôi chẳng thấy xung đột gì cả? Có chăng bạn không có những hình và đường dẫn tới hình đó mà thôi.

ndu96081631 · 22/4/13

linki đã viết:
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!

Bạn dùng Excel 2007 chăng?
Nhiều khi thằng 2007 xuất hiện những lỗi tào lao mà ta không thể biết được đó là lỗi gì cả

Hoàng Trọng Nghĩa · 22/4/13

ndu96081631 đã viết:
Bạn dùng Excel 2007 chăng?
Nhiều khi thằng 2007 xuất hiện những lỗi tào lao mà ta không thể biết được đó là lỗi gì cả

Có đâu Thầy! Em vẫn đang xài thằng 2007 đó thôi, đâu có lỗi gì đâu?

ndu96081631 · 22/4/13

Hoàng Trọng Nghĩa đã viết:
Có đâu Thầy! Em vẫn đang xài thằng 2007 đó thôi, đâu có lỗi gì đâu?

Tôi chỉ đoán vậy thôi
Vì file ấy của tôi, chắc chắc không lỗi gì rồi... nhưng tôi tình nghi tác giả đang áp dụng vào 1 file khác có thêm nhiều thành phần khác (như nhiều format, nhiều công thức...) và khi thêm cái checkbox trên thì vừa đúng lỗi xuất hiện

linki · 22/4/13

em vừa kiểm tra lại trên excel 2010 thì bình thường, chỉ bị lỗi khi chạy trên excel 2003 thôi ạ.

xuantruongx · 10/5/13

wow, qua hay. Nhưng mình gặp lỗi này. nếu sửa đc thì ok.
1. khi chen hinh xong, save lai, neu click vao hinh, hinh se chay ra khoi cell. phai nhan F9 de hinh cho ve vi tri dung cua no.
2. Có cách nào sau khi chen hinh xong, save lại với lựa chọn đóng gói luôn hình vào file (tất nhiên file sẽ có dung lượng lớn)

>> Da chinh dc. chon lenh show all command la dc.

xuantruongx · 16/5/13

Khuyết điểm của phương pháp này là khi hide row, cac command nhay lung tung.
Ap dung tốt với file ít hình ảnh. Nhưng với file có vài trăm hình, file sẽ chạy khá ì ạch.

bbq1401 · 20/5/13

Các anh ơi. Em thấy lệnh này ứng dụng rất hay. Em muốn sử dụng cách chọn hình thứ 2 thì làm thế nào.
Ví dụ: Em copy tất cả các hình vào sheets khác thì em phải viết lại code như thế nào.

ndu96081631 · 20/5/13

bbq1401 đã viết:
Các anh ơi. Em thấy lệnh này ứng dụng rất hay. Em muốn sử dụng cách chọn hình thứ 2 thì làm thế nào.
Ví dụ: Em copy tất cả các hình vào sheets khác thì em phải viết lại code như thế nào.

Thế file của bạn đâu sao không đưa lên đây?
Thiết kế sẵn nha, rồi tôi sẽ làm giúp bạn

bbq1401 · 20/5/13

Sorry các anh nhé. Em muốn hỏi là copy ảnh vào 1 sheets trong file đó. Bây giờ sử dụng lệnh để lấy nguồn file ảnh ở sheets đó.

ndu96081631 · 20/5/13

bbq1401 đã viết:
Sorry các anh nhé. Em muốn hỏi là copy ảnh vào 1 sheets trong file đó. Bây giờ sử dụng lệnh để lấy nguồn file ảnh ở sheets đó.

Hỏi cái gì cũng phải có file cụ thể bạn à! Chả lẽ tôi lại tự xây dựng file cho bạn sao?

bbq1401 · 25/5/13

gửi các anh.
em gửi file lên các anh xem giúp em nhé.

ndu96081631 · 25/5/13

bbq1401 đã viết:
gửi các anh.
em gửi file lên các anh xem giúp em nhé.

Thế bạn muốn chèn hình vào chổ nào? Trong cái khung vuông vuông bên sheet MauKM chăng?
Thêm nữa: Tôi để ý trong file của bạn có trường hợp 1 mã sản phẩm nhưng nhận được nhiều hàng khuyến mãi (chẳng hạn vừa bàn phím, vừa quạt điện). Trường hợp này ta sẽ "show" hình như thế nào đây?

bbq1401 · 25/5/13

Vâng. Em muốn chèn hình vào trong khung đó ở bên sheet mauKM. Chỗ nào cũng được miễn làm sao có đầy đủ các hình. Khi chèn xong em sẽ tự điều chình kích thước, vị trí cho phù hợp và đẹp mắt.
trong file đó có mã sản phẩm được khuyến mại 1 sản phẩm khác, có mã hàng không được khuyến mại gì, có mã hàng được nhiều sản phẩm KM. Em muốn Nếu mã sản phẩm nào được khuyến mại gì thì sẽ chèn hình ảnh tương ứng.

ndu96081631 · 26/5/13

bbq1401 đã viết:
Vâng. Em muốn chèn hình vào trong khung đó ở bên sheet mauKM. Chỗ nào cũng được miễn làm sao có đầy đủ các hình. Khi chèn xong em sẽ tự điều chình kích thước, vị trí cho phù hợp và đẹp mắt.
trong file đó có mã sản phẩm được khuyến mại 1 sản phẩm khác, có mã hàng không được khuyến mại gì, có mã hàng được nhiều sản phẩm KM. Em muốn Nếu mã sản phẩm nào được khuyến mại gì thì sẽ chèn hình ảnh tương ứng.

Xem file thử có đúng ý bạn không nha!
Chọn mã sản phẩm tại cell A3, hình sẽ tự thay đổi
(nhớ Enable macros nhé)

bbq1401 · 26/5/13

Gửi Anh!
Hàm này em đã áp dụng rồi nhưng có nhược điểm là :
- Nếu di chuyển và thay đổi kích thước hình đó thì sẽ bị ẩn luôn. Nhấn F9 thì hình lại quay lại khunh mặc định.
- Em muốn chèn hình và thay đổi kích thước mà không bị ẩn đi.

siwtom · 26/5/13

bbq1401 đã viết:
Gửi Anh!
Hàm này em đã áp dụng rồi nhưng có nhược điểm là :
- Nếu di chuyển và thay đổi kích thước hình đó thì sẽ bị ẩn luôn. Nhấn F9 thì hình lại quay lại khunh mặc định.
- Em muốn chèn hình và thay đổi kích thước mà không bị ẩn đi.

Không phải biến mất là do di chuyển hay thay đổi kích thước. Biến mất khi bạn click vào ảnh (sẩy ra khi bạn di chuyển hoặc thay đổi kích thước) và sau đó click vào cell khác. Bạn cứ thử "lỡ nhầm" click vào ảnh rồi sau đó không di chuyển và thay đổi kích thước, tiếp theo click vào cell khác. Ảnh sẽ biến mất.

bbq1401 · 27/5/13

Như vậy thì rất khó xử lý rồi, Vì trong file này, việc di chuyển và thay đổi kích thước phải sử dụng liên tục. Có cách nào nữa không hả các anh chị.

siwtom · 27/5/13

bbq1401 đã viết:
Như vậy thì rất khó xử lý rồi, Vì trong file này, việc di chuyển và thay đổi kích thước phải sử dụng liên tục. Có cách nào nữa không hả các anh chị.

Hay ta chơi Picture?

Mã:

Function PicFit(ByVal PictureFileName As String, Optional ByVal TargetCell As range) As String
  On Error Resume Next
  If TargetCell Is Nothing Then Set TargetCell = Application.ThisCell
    TargetCell.Worksheet.Shapes(TargetCell.Address).Delete
    If CreateObject("Scripting.FileSystemObject").fileExists(PictureFileName) Then
        TargetCell.Select
        With TargetCell.Worksheet.Pictures.Insert(PictureFileName)
            .Name = TargetCell.Address
            .ShapeRange.LockAspectRatio = msoFalse
            .Left = TargetCell.Left
            .Top = TargetCell.Top
            .Width = TargetCell.Width
            .Height = TargetCell.Height
        End With
    End If
End Function

ndu96081631 · 27/5/13

bbq1401 đã viết:
Gửi Anh!
Hàm này em đã áp dụng rồi nhưng có nhược điểm là :
- Nếu di chuyển và thay đổi kích thước hình đó thì sẽ bị ẩn luôn. Nhấn F9 thì hình lại quay lại khunh mặc định.
- Em muốn chèn hình và thay đổi kích thước mà không bị ẩn đi.

Cái đó dễ thôi. Thêm đoạn này ở trên With.. End With là được:

Mã:

Cel(1, 1).Comment.Visible = True

Gửi lại file nhé

bbq1401 · 27/5/13

Quá tuyệt vời. Em xin cám ơn các anh/chị đã giúp đỡ.
Một lần nữa em xin cám ơn anh/ chị siwtom đã giúp đỡ em trong bài này.

techmodule · 28/5/13

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
Em sử dụng hàm commpic theo hướng dẫn của anh, nhưng với máy macbook dùng hệ điều hành mac os thì không nhấn F9 và hiện hình ảnh được, anh có thể tư vấn cho em làm thế nào để hàm này chạy được trên macbook không ạ

techmodule · 28/5/13

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
EM có đọc về hàm commpic của anh trên diễn đàn này
Em có có tự viết hàm, nếu chạy trên window thì ok, có thể chạy được và nhấn F9 là tự fill hình vào cell, nhưng khi sang mac os thì không thể chạy được
Anh tư vấn giùm em được không ạ
Các module em viết như sau
1. Hàm lấy link ảnh, ảnh ở trong thư mục tên là /hinhanh, cùng cấp với file excel.

Mã:

Function link(piclink As String) As String
link = ThisWorkbook.Path & "\hinhanh\" & piclink & ".jpg"
If piclink = "" Then link = ""
End Function
'DV-EIKy3eufiqTGkGTXWw9aW5 # Do not remove this line; required for DocVerse merge.

2. Hàm chèn ảnh

Mã:

Function CommPic(Pic As String, Cel As Range) As String  Dim mRng As Range
  On Error Resume Next
  Application.Volatile
  Cel(1, 1).Comment.Delete
  If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
  Cel(1, 1).Comment.Text vbLf
  Set mRng = Cel(1, 1).MergeArea
  If mRng Is Nothing Then Set mRng = Cel(1, 1)
  With Cel(1, 1).Comment.Shape
    .Shadow.Visible = msoFalse
    .Line.Visible = msoFalse
    .AutoShapeType = msoShapeRectangle
    .Left = mRng.Left: .Top = mRng.Top: .Visible = True
    .Width = mRng.Width: .Height = mRng.Height
    .Fill.UserPicture Pic
  End With
End Function
'DV-Co5ZXVcg3s3yA29Wn227Ia # Do not remove this line; required for DocVerse merge.

3. Hàm xoá ảnh (khi thay đổi tên hình ảnh sẽ tự động xoá ảnh cũ đi để điền ảnh mới)

Mã:

Option ExplicitFunction Xoaanh(anh As String, Cel As Range) As String
On Error Resume Next
Application.Volatile
If anh = "" Then Cel(1, 1).Comment.Delete
End Function

'DV-v8fKYPi6NLdl401SuhYrFJ # Do not remove this line; required for DocVerse merge.

Sau đó em viết vào file excel như sau

Mã:

=IF(A15<>"",CommPic(link(B15),D15),Xoaanh(B15,D15))

Nếu như trong window hoạt động tốt thì trong mac os không hoạt động được anh à
Mong anh tư vấn giùm em

ndu96081631 · 28/5/13

techmodule đã viết:
Nếu như trong window hoạt động tốt thì trong mac os không hoạt động được anh à
Mong anh tư vấn giùm em

Bạn hỏi thế sao mà biết trả lời đây? Tôi có xài MAC đâu chứ
(mà chắc cũng hiếm người xài)

techmodule · 2/7/13

Chào anh
Em đã nghiên cứu và làm được
Chỉ cần thay thế link = ThisWorkbook.Path & "\hinhanh\" & piclink & ".jpg"
thay dấu \ bằng dấu : là được ạ

vuvinh7273 · 30/8/13

không biết còn bạn nào vào diễn đàn này không

Mình thấy này rất hay khi mình có ý tưởng và tìm nó thì cả nhà đã có diễn đàn cách đây 2 năm . . . . (thế giới thật bao la)

Sau khi mình sử dụng doạn code để chèn ảnh thì mình thấy dung lượng file tăng đáng kể
file gốc chưa dùng hàm có dung lượng khoảng 200k khi chèn công thức lến đến khoản 500k, còn khi mình chèn trực tiếp thì chỉ khoảng 250k

minhhanbe · 6/9/13

Insert nhiều Embed Objects vào File Excel

Mình đang có tình huống như thế này Hiện tại mình có 1 danh sách các số ngẫu nhiên từ mã vạch
và một thư mục hình ảnh và tên của các mã vạch đó dạng số mã vạch.tif vd 78823231.tif

nay mình muốn nhúng embed hình mã mạch vào đúng ô bên cạnh của số mã vạch đó
Hiện mình đang làm bằng tay cứ ô 78823231 mình Insert Embed Object from file chọn hình 78823231.tif vào ô kế bên. Danh sách hàng trăm cái mỗi ngày nên rất lâu

Có bạn nào có thể giúp mình tự động hóa nó ko ạ. mình cảm ơn rất nhiều a.

Hiện tại em phải báo cáo cho khách hàng hiện tại em dùng Insert Embed Object đính file ảnh vào Excel khi họ click vào biểu tượng ảnh sẽ dc phóng to.

Mong dc sự giúp đỡ ạ.

hoadongtien87 · 8/9/13

khi phóng to ra thì số liệu có thay đổi gì ko mọi người?

minhhanbe · 9/9/13

Mọi người giúp với đây là thao tác chèn Embed Object dùng Macro ghi lại ạ

Sub Macro1()
'
' Macro1 Macro
'

'
Range("C7").Select
ActiveSheet.OLEObjects.Add(Filename:="D:\imagesbill\893010000366724.tif", _
Link:=False, DisplayAsIcon:=False).Select
ActiveSheet.Shapes("Object 7").ScaleWidth 0.7592594819, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Object 7").ScaleHeight 0.7592592593, msoFalse, _
msoScaleFromTopLeft
End Sub

ndu96081631 · 9/9/13

minhhanbe đã viết:
Mọi người giúp với đây là thao tác chèn Embed Object dùng Macro ghi lại ạ

Thế bạn muốn mọi người giúp cái gì?

minhhanbe · 11/9/13

Insert nhiều Embed Objects vào File Excel

ndu96081631 đã viết:
Thế bạn muốn mọi người giúp cái gì?

Mình đang có tình huống như thế này Hiện tại mình có 1 danh sách các số ngẫu nhiên từ mã vạch
và một thư mục hình ảnh và tên của các mã vạch đó dạng số mã vạch.tif vd 78823231.tif

nay mình muốn nhúng embed hình mã mạch vào đúng ô bên cạnh của số mã vạch đó
Hiện mình đang làm bằng tay cứ ô 78823231 mình Insert Embed Object from file chọn hình 78823231.tif vào ô kế bên. Danh sách hàng trăm cái mỗi ngày nên rất lâu

Có bạn nào có thể giúp mình tự động hóa nó ko ạ. mình cảm ơn rất nhiều a.

mình muốn một dạng script tự động chèn vào khi chạy sẽ so sánh giá trị cột B tìm hình có giá trị giống B + ".tif" chèn hình vào C. vì kho hình mình có định dạng "chuỗi số.tif"

minhhanbe · 11/9/13

ndu96081631 đã viết:
Thế bạn muốn mọi người giúp cái gì?

mình muốn được giúp đỡ một dạng script tự động chèn vào khi chạy sẽ so sánh giá trị cột B tìm hình có giá trị giống B + ".tif" chèn hình vào C. vì kho hình mình có định dạng "chuỗi số.tif"[/QUOTE]

mình có post bài tình huống bên trên và thao tác thủ công ghi lại bằng công cụ macro đó a.

ndu96081631 · 11/9/13

minhhanbe đã viết:
Mình đang có tình huống như thế này Hiện tại mình có 1 danh sách các số ngẫu nhiên từ mã vạch
và một thư mục hình ảnh và tên của các mã vạch đó dạng số mã vạch.tif vd 78823231.tif

nay mình muốn nhúng embed hình mã mạch vào đúng ô bên cạnh của số mã vạch đó
Hiện mình đang làm bằng tay cứ ô 78823231 mình Insert Embed Object from file chọn hình 78823231.tif vào ô kế bên. Danh sách hàng trăm cái mỗi ngày nên rất lâu

Có bạn nào có thể giúp mình tự động hóa nó ko ạ. mình cảm ơn rất nhiều a.

mình muốn một dạng script tự động chèn vào khi chạy sẽ so sánh giá trị cột B tìm hình có giá trị giống B + ".tif" chèn hình vào C. vì kho hình mình có định dạng "chuỗi số.tif"

Thế sao bạn không áp dụng code tại bài 1 của topic này?

chuot0106 · 11/9/13

Em đang đọc dở nhưng thấy đề tài hay quá nên đánh dấu để tối về đọc tiếp. Mong BQT cho phép. Hi

minhhanbe · 11/9/13

Cảm ơn các bạn đã giải đáp do mình đầu tiên cũng ko biết code cho lắm mình thấy code bài #1 là chèn hình ảnh còn mình là nhúng ảnh embed ( ko cần thư mục ảnh kèm theo file excel). nên có gì sai sót mong cá bạn bỏ qua a.

♠AceBich♠ · 18/10/13

File compic rất hay nhưng cho mình hỏi thêm là khi in thì mình không in được hình, Anh chị vui lòng hướng dẫn thêm, cám ơn!!!

leonguyenz · 18/10/13

♠AceBich♠ đã viết:
File compic rất hay nhưng cho mình hỏi thêm là khi in thì mình không in được hình, Anh chị vui lòng hướng dẫn thêm, cám ơn!!!

Bạn xem ở đây: http://www.giaiphapexcel.com/forum/...nh-sách-và-insert-copy-đc&p=334774#post334774

ndu96081631 · 18/10/13

♠AceBich♠ đã viết:
File compic rất hay nhưng cho mình hỏi thêm là khi in thì mình không in được hình, Anh chị vui lòng hướng dẫn thêm, cám ơn!!!

Chẳng phải trong topic này đã có người hỏi vấn đề tương tự và đã được trả lời tại bài 14 rồi sao?

♠AceBich♠ · 18/10/13

leonguyenz đã viết:
Bạn xem ở đây: http://www.giaiphapexcel.com/forum/...nh-sách-và-insert-copy-đc&p=334774#post334774

ndu96081631 đã viết:
Chẳng phải trong topic này đã có người hỏi vấn đề tương tự và đã được trả lời tại bài 14 rồi sao?

Chân thành cám ơn đã gửi link cho mình! Mình đã thử làm theo nhưng vẫn không in được hình, bạn vui lòng hướng dẫn thêm cho mình

ndu96081631 · 18/10/13

♠AceBich♠ đã viết:
Chân thành cám ơn đã gửi link cho mình! Mình đã thử làm theo nhưng vẫn không in được hình, bạn vui lòng hướng dẫn thêm cho mình

Đã chỉnh mà vẫn không in được thì... hết biết
Mang sang máy khác thử xem

♠AceBich♠ · 18/10/13

ndu96081631 đã viết:
Đã chỉnh mà vẫn không in được thì... hết biết
Mang sang máy khác thử xem

hix! mình dùng office 2010 thì không biết có ảnh hưởng gì không?! Sẵn nhờ Bác xem dùm cái link này luôn!!! thx Bác trước.

khanhtoan_123 · 18/11/13

Anh Tuấn cho hỏi, sao em dùng Mailmer trong word thì không xuất ra hình được.
Ví dụ: em có 01 file excell với dữ liệu gồm: Hoten, diachi, ngaysinh, hinhanh. Nhưng không dùng mailmer để xuất hình ảnh ra word được.
Cảm ơn anh và các bạn.

khanhtoan_123 · 18/11/13

Em muốn dùng file excell để mailmerger sang Word nhưng sao không được. Giúp em với.

khanhtoan_123 · 18/11/13

Nhờ các cao thủ giúp em tạo 01 file danh sách khách hàng (file đính kèm) trong đó 2 cột đánh dấu màu vàng (cột A, F) khi thay đổi nội dung 2 cột này thì nội dung các cột khác cũng thay đổi theo, em cũng muốn trong Sheet DATA (bị dấu đi rồi) có chèn hình ảnh tương ứng với từng khách hàng và dĩ nhiên ở Sheet kết quả cũng hiển thị hình thị hình ảnh này luôn.
Đồng thời em cũng muốn dữ liệu từ Sheet kết quả này dùng Mailmer để xuất ra word luôn.
Cảm ơn các cao thủ trước.

http://upfile.vn/98601e?shared

TDTRUONG · 21/5/14

Cảm ơn bạn Anh Tuấn rất nhiều. Nhưng sao khi Printview thì không có hình, và khi in ra cũng không có hình?

ndu96081631 · 21/5/14

TDTRUONG đã viết:
Cảm ơn bạn Anh Tuấn rất nhiều. Nhưng sao khi Printview thì không có hình, và khi in ra cũng không có hình?

Bạn chỉ cần đọc hết từ đầu đến cuối topic này sẽ thấy hướng dẫn. Chẳng hạn là bài 14

NguyenBp · 19/6/14

Anh ơi sao em làm giống cách anh chỉ nhưng ko ra hình mà ra #Name? làm sao để khắc phục vậy anh...thanks anh

dalat2010 · 6/8/14

Chào các bạn, tôi dùng cái này chèn hình tự động thì OK nhưng khi tạo chú thích cho hình bằng autoshape thì cái chú thích lại nằm dưới tấm hình chèn trong comment. Tôi đã format autoshape chọn Bring To Fron nhưng khi tắt file mở lại thì nó vẫn như cũ. Nhờ các bạn them cái code cho tấm hình trong comment luôn ở tình trạng Send To Back được không ạ.. Cảm ơn rất nhiều.

ndu96081631 · 6/8/14

dalat2010 đã viết:
Chào các bạn, tôi dùng cái này chèn hình tự động thì OK nhưng khi tạo chú thích cho hình bằng autoshape thì cái chú thích lại nằm dưới tấm hình chèn trong comment. Tôi đã format autoshape chọn Bring To Fron nhưng khi tắt file mở lại thì nó vẫn như cũ. Nhờ các bạn them cái code cho tấm hình trong comment luôn ở tình trạng Send To Back được không ạ.. Cảm ơn rất nhiều.

Nghĩ cũng lạ thiệt! Excel 2003 có thể làm cho AutoShapes nằm trên hoặc dưới Comment tùy ý, còn Excel 2010 thì chẳng biết làm cách nào cho thằng AutoShapes nằm trên comment cả

mayxanh0301 · 7/8/14

Tên các file hình của bạn thiếu đuôi ".jpg". Thêm vào phần đó là OK

dodinhkhai · 10/8/14

Bài này hay quá!
Cảm ơn anhtuan1066 đã chia sẻ!

tuantel · 22/10/14

anhtuan1066 đã viết:
Nhân tiện có bạn thắc mắc về hàm này liên quan đến Merge cell tại đây:
http://www.giaiphapexcel.com/forum/...đồi-hình-ảnh-theo-danh-sách-và-insert-copy-đc
Tôi cải tiến lại hàm này như sau:

Mã:

Function CommPic(Pic As String, Cel As Range) As String Dim mRng As Range On Error Resume Next Application.Volatile Cel(1, 1).Comment.Delete If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment Cel(1, 1).Comment.Text vbLf Set mRng = Cel(1, 1).MergeArea If mRng Is Nothing Then Set mRng = Cel(1, 1) With Cel(1, 1).Comment.Shape .Shadow.Visible = msoFalse '<--- Thêm vào nếu không muốn có Shadow .Line.Visible = msoFalse '<--- Thêm vào nếu không muốn có đường viền .AutoShapeType = msoShapeRectangle '<--- Thêm vào để che mũi tên đỏ trong cell .Left = mRng.Left: .Top = mRng.Top: .Visible = True .Width = mRng.Width: .Height = mRng.Height .Fill.UserPicture Pic End With End Function

Cú pháp sử dụng vẫn như cũ

Hi Anhtuan,
Tôi sử dụng hàm tự tạo để chèn ảnh, tuy nhiên gửi cho đối tác không đọc được ảnh. Tuấn chỉ giúp có cách nào mà gửi sang các máy tính bất kỳ vẫn xem được ảnh không nhé. Cảm ơn Tuấn!

Br,
Tran Anh Tuan
tuantab@gmail.com

thinthin · 25/11/14

Các bác giúp em với ạ. Sao em trộn thư từ file chứa ảnh này thì các ảnh đều không hiển thị trong Word được ạ. $-\\/.$

doanthucdinh · 10/12/14

Đầu tiên xin cám ơn anh về bài viết hay. Anh cho hỏi thêm nếu trường hợp mình lấy link ảnh là Shape có được không? vì em muốn chèn tất cả ảnh vào trong excel để tiện cho công việc của em hơn. Xin cảm ơn anh trước

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

httranquyen · 29/12/14

bài này hay quá. nhưng bác ơi em có một vấn đề này mong bác giúp. đó là ví dụ em chưa định dạng bức ảnh vậy nên kích cỡ của nó khác nhau giờ em muốn bức ảnh khi vào có định dạng sẵn là 4*6 cm bác nghiên cứu dùm em với a. cám ơn bác nhiều.

ndu96081631 · 29/12/14

httranquyen đã viết:
bài này hay quá. nhưng bác ơi em có một vấn đề này mong bác giúp. đó là ví dụ em chưa định dạng bức ảnh vậy nên kích cỡ của nó khác nhau giờ em muốn bức ảnh khi vào có định dạng sẵn là 4*6 cm bác nghiên cứu dùm em với a. cám ơn bác nhiều.

Kích thước của hình sẽ được tự động chỉnh theo kích thước của cell (cell ta gõ công thức). Vậy bạn chỉ cần chỉnh kích thước cell sao cho vừa ý là được rồi

httranquyen · 29/12/14

vâng ạ cám ơn bác đã chỉ giáo . bác ơi cho em hỏi làm sao để khoá bức ảnh trong khung commen em gửi email nhưng người nhận không nhìn thấy bức ảnh ạ.

nguyen6571gpex · 15/1/15

Chào cả nhà!
Cho tôi hỏi: Tôi làm theo cách trong topic này ở trong Excel 2003 thì được, nhưng khi chèn code này:
Option ExplicitFunction CommPic(Pic As String, Cel As Range) As String
Dim mRng As Range
On Error Resume Next
Application.Volatile
Cel(1, 1).Comment.Delete
If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
Cel(1, 1).Comment.Text vbLf
Set mRng = Cel(1, 1).MergeArea
If mRng Is Nothing Then Set mRng = Cel(1, 1)
With Cel(1, 1).Comment.Shape
.Shadow.Visible = msoFalse
.Line.Visible = msoFalse
.AutoShapeType = msoShapeRectangle
.Left = mRng.Left: .Top = mRng.Top: .Visible = True
.Width = mRng.Width: .Height = mRng.Height
.Fill.UserPicture Pic
End With
End Function

vào excel 2013 thì khi lưu lại báo lỗi như hình đính kèm, giờ làm như thế nào?

ndu96081631 · 15/1/15

nguyen6571gpex đã viết:
Chào cả nhà!
Cho tôi hỏi: Tôi làm theo cách trong topic này ở trong Excel 2003 thì được, nhưng khi chèn code này:
Option ExplicitFunction CommPic(Pic As String, Cel As Range) As String
Dim mRng As Range
On Error Resume Next
Application.Volatile
Cel(1, 1).Comment.Delete
If Cel(1, 1).Comment Is Nothing Then Cel(1, 1).AddComment
Cel(1, 1).Comment.Text vbLf
Set mRng = Cel(1, 1).MergeArea
If mRng Is Nothing Then Set mRng = Cel(1, 1)
With Cel(1, 1).Comment.Shape
.Shadow.Visible = msoFalse
.Line.Visible = msoFalse
.AutoShapeType = msoShapeRectangle
.Left = mRng.Left: .Top = mRng.Top: .Visible = True
.Width = mRng.Width: .Height = mRng.Height
.Fill.UserPicture Pic
End With
End Function

vào excel 2013 thì khi lưu lại báo lỗi như hình đính kèm, giờ làm như thế nào?

Từ Excel 2007 trở lên đều thế cả: Với file có chứa macro, phải lưu theo định dạng XLSM. Nếu "cố tình" lưu theo định dạng XLSX thì Excel sẽ hiện thông báo lỗi như trên, và nếu "cố tình" bấm nút Yes thì xem như.. tiêu đời ---> Code mất sạch
Phiền phức hơn Excel 2003 vậy đấy, tuy nhiên chức năng này cũng có cái hay của nó: Với file có virus, chỉ cần Save As theo định dạng XLSX thì virus.. chết ngắt

phucymvn · 7/3/15

tuantel đã viết:
Hi Anhtuan,
Tôi sử dụng hàm tự tạo để chèn ảnh, tuy nhiên gửi cho đối tác không đọc được ảnh. Tuấn chỉ giúp có cách nào mà gửi sang các máy tính bất kỳ vẫn xem được ảnh không nhé. Cảm ơn Tuấn!

Br,
Tran Anh Tuan
tuantab@gmail.com

Bạn làm xong rồi save as sang excel 2003-2007 gửi cho đối tác OK nhé

Chèn hình vào cell bằng hàm tự tạo (1 người xem)

Người dùng đang xem chủ đề này

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

File đính kèm

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Chuyên gia GPE

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

File đính kèm

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

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

Thành viên mới

Huyền thoại GPE

Thành viên mới

Huyền thoại GPE

Chuyên gia GPE

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

Huyền thoại GPE

Thành viên mới

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

Chuyên gia GPE

Huyền thoại GPE

Chuyên gia GPE

Huyền thoại GPE

Thành viên mới

Thành viên mới

Thành viên mới

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

Huyền thoại GPE

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

Huyền thoại GPE

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

File đính kèm

Huyền thoại GPE

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

Huyền thoại GPE

File đính kèm

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

Thành viên gắn bó

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

Thành viên gắn bó

File đính kèm

Huyền thoại GPE

File đính kèm

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

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới