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

 

[HOANG 1978]

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]

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]

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]

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]

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

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

 

[ndu96081631]

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)
----------------------

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]

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]

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]

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:

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]

bác có thể làm biến mất hoàn toàn hay cho nó trong suốt cái mũi tên màu đen ko

tại vì em ko fill ảnh vừa khít cell mà cho nó nhỏ hơn cell, nếu ko nó sẽ che mất cái đường border của cell, vì thế nó bị lộ cái mũi tên ý

 

[anhtuan1066]

bác có thể làm biến mất hoàn toàn hay cho nó trong suốt cái mũi tên màu đen ko
View attachment 68450
tại vì em ko fill ảnh vừa khít cell mà cho nó nhỏ hơn cell, nếu ko nó sẽ che mất cái đường border của cell, vì thế nó bị lộ cái mũi tên ý
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]

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]

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]

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]

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]

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:

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]

các bác ơi, chất lượng hình ảnh khi in ra rất kém, mờ lắm, có cách nào khắc phục ko nhỉ

 

[ndu96081631]

các bác ơi, chất lượng hình ảnh khi in ra rất kém, mờ lắm, có cách nào khắc phục ko nhỉ

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]

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.