Chèn hình hàng loạt trái sang phải rồi xuống, resize, tạo border cho các ô có hình

[chauchibang]

Xin lỗi các bác là em đăng bài lần đầu nên chưa biết đăng chỗ này có đúng không, nếu chưa đúng các bác move giúp em về đúng chỗ ạ.
Công việc của em hay insert hàng trăm hình vào excel, hình gốc thì có thể ngang dọc to nhỏ gì đó, nhưng khi insert vào thì hình nó đều có kích thước bằng nhau và nằm trải dài ra trên diện tích từ A3:B13, và khi có hình vào ô đó thì ô đó cần có thêm border nữa ạ.
Hiện nay e vẫn đang làm thủ công.
Mong các bác chỉ giúp cách nào automatic và nhanh hơn ạ.
Cảm ơn cả nhà. Các bác có thể mở file đính kèm thì sẽ rõ hơn nha

 

[giaiphap]

Xin lỗi các bác là em đăng bài lần đầu nên chưa biết đăng chỗ này có đúng không, nếu chưa đúng các bác move giúp em về đúng chỗ ạ.
Công việc của em hay insert hàng trăm hình vào excel, hình gốc thì có thể ngang dọc to nhỏ gì đó, nhưng khi insert vào thì hình nó đều có kích thước bằng nhau và nằm trải dài ra trên diện tích từ A3:B13, và khi có hình vào ô đó thì ô đó cần có thêm border nữa ạ.
Hiện nay e vẫn đang làm thủ công.
Mong các bác chỉ giúp cách nào automatic và nhanh hơn ạ.
Cảm ơn cả nhà. Các bác có thể mở file đính kèm thì sẽ rõ hơn nha

Bạn xem thử file đúng yêu cầu của mình chưa.

 

[chauchibang]

Thanks bác giaiphap đã giúp ạ, nói về kết quả hình nằm gọn trong ô và ô có border thì bác làm quá đẹp và quá chuẩn ạ.
Em thì chả biết xài code kiết gì nên e chả chỉnh sửa xào nấu gì được với code của bác.
Nhận file của bác xong em mới phát hiện là file ảnh có tên là các con số thì code chạy, còn file ảnh với tên a,b,c thì nó báo lỗi
Việc của em có nhiều folder, ở nhiều nơi trên server, file ảnh thì dạng ảnh chụp từ máy ảnh nên tên random do máy ảnh tạo ra chỉ xếp theo thứ tự chữ cái thôi, nên em có ý tưởng thế này ạ:
- Bác làm giúp em dạng nút nhấn trên file phụ nào đó, hoặc thêm một nút nhấn trên thanh ribbon excel cũng được, khi bấm vào nó sẽ hỏi đường dẫn ảnh, chọn bao nhiêu tấm nó sẽ insert bấy nhiêu, nó sẽ insert vào file template.xlx em gửi kèm. Khi đó em chỉ việc save as cái file template này để làm báo cáo cho sếp là nhanh.
Không biết ý tưởng em vậy có gì sai không, mong cả nhà chỉ bảo ạ. Thanks cả nhà

 

[giaiphap]

Cảm ơn bác giaiphap đã giúp ạ, nói về kết quả hình nằm gọn trong ô và ô có border thì bác làm quá đẹp và quá chuẩn ạ.
Em thì chả biết xài code kiết gì nên e chả chỉnh sửa xào nấu gì được với code của bác.
Nhận file của bác xong em mới phát hiện là file ảnh có tên là các con số thì code chạy, còn file ảnh với tên a,b,c thì nó báo lỗi
Việc của em có nhiều folder, ở nhiều nơi trên server, file ảnh thì dạng ảnh chụp từ máy ảnh nên tên random do máy ảnh tạo ra chỉ xếp theo thứ tự chữ cái thôi, nên em có ý tưởng thế này ạ:
- Bác làm giúp em dạng nút nhấn trên file phụ nào đó, hoặc thêm một nút nhấn trên thanh ribbon excel cũng được, khi bấm vào nó sẽ hỏi đường dẫn ảnh, chọn bao nhiêu tấm nó sẽ insert bấy nhiêu, nó sẽ insert vào file template.xlx em gửi kèm. Khi đó em chỉ việc save as cái file template này để làm báo cáo cho sếp là nhanh.
Không biết ý tưởng em vậy có gì sai không, mong cả nhà chỉ bảo ạ. Cảm ơn cả nhà

Bạn cần add-ins thì mình viết add-ins cho bạn luôn.

 

[chauchibang]

Ngàn lần cảm ơn bác giaiphap ạ, không biết lấy gì để cảm tạ bác, thôi thì xin chúc bác và gia đình luôn có nhiều sức khỏe
Và cũng chúc cho diễn đàn ngày càng phát triển lớn mạnh ạ.

 

[chauchibang]

Alo Bác Giaiphap ơi, bữa giờ em không phát hiện ra là Add-in này nó chèn hình dạng link, gửi mail cho người khác thì người khác không xem được hình ạ. Nhờ bác giúp em có cách nào chèn cả tấm hình vào luôn không. Cảm ơn bác. Thanks all forum's members.

 

[giaiphap]

Alo Bác Giaiphap ơi, bữa giờ em không phát hiện ra là Add-in này nó chèn hình dạng link, gửi mail cho người khác thì người khác không xem được hình ạ. Nhờ bác giúp em có cách nào chèn cả tấm hình vào luôn không. Cảm ơn bác. Cảm ơn all forum's members.

Bạn thử lại với file này.

 

[chauchibang]

Bạn thử lại với file này.

Thông báo là hoàn hảo rồi bác ạ, cảm ơn bác nhiều nhiều ạ.

 

[tanbqtb03]

Thanks bác chủ

 

[viettrithanyeu]

@giaiphap bác có thể giúp em chèn cái hình vào ô từ B8:E18 ở mỗi sheet không ạ, ở mỗi sheet do kích cỡ ô khác nhau nên em chưa biết chèn kiểu gì cho hợp lý. Và theo bác thì chèn ảnh hay comment thì hay hơn ạ?

 

[giaiphap]

@giaiphap bác có thể giúp em chèn cái hình vào ô từ B8:E18 ở mỗi sheet không ạ, ở mỗi sheet do kích cỡ ô khác nhau nên em chưa biết chèn kiểu gì cho hợp lý. Và theo bác thì chèn ảnh hay comment thì hay hơn ạ?

Bạn sửa lại hàm như sau:

Function CommPic(Cell1 As Range, Cell2 As Range) As String
  On Error Resume Next
  Application.Volatile
  Cell2.Comment.Delete
  If Cell2.Comment Is Nothing Then Cell2.AddComment
  Cell2.Comment.Text vbLf
  With Cell2.Comment.Shape
    .Left = Cell2.Left: .Top = Cell2.Top: .Visible = True
    .Width = Cell2.Width * 3: .Height = Cell2.Height * 11
    .Fill.UserPicture ThisWorkbook.Path & "\" & Cell1.Value & ".png"
  End With
End Function

Sau đó tại ô b8 bạn gõ công thức thế này.

=commpic(O5;B8)

Lưu ý: code này chỉ áp dụng cho chính cái file của bạn thôi nhé, dùng cho file khác có thể tùy chỉnh lại.

 

[viettrithanyeu]

Vâng, em sửa lại chỗ
.Width= Range("B8:E18").Width-3
.Height= Range("B8:E18").Height-6

Nhưng mà dùng file có vẻ hơi nặng. máy hơi chậm đi một chút khi thay đổi số thự tự (dùng hàm vlookup) để in. Nếu sử dụng để in nhanh một loạt thì lúc in có trường hợp file in ra không đúng do máy chưa kịp thay đổi dữ liệu. Bác có cách nào giải quyết vấn đề này không ạ?

 

[bichhuong142]

Em xin chào cả nhà ạ!
Đọc bào viết của bác chauchibang mà em mừng quá ạ,chả là em cũng cùng chung lỗi niềm giống bác ấy mà em lại mù tịt chả biết gì về code nên không biến tấu vào file của mình được.Vậy em xin nhờ các bác giúp em ạ.Em gửi kèm file,mục đích của em là muốn insert hình ảnh vào các ô có sẵn
Mong các bác chỉ giúp cách nào automatic và nhanh hơn ạ.Trước giờ em toàn làm thủ công.Em xin cảm ơn cả nhà ạ.

 

[bichhuong142]

Em xin chào cả nhà ạ!
Đọc bào viết của bác chauchibang mà em mừng quá ạ,chả là em cũng cùng chung lỗi niềm giống bác ấy mà em lại mù tịt chả biết gì về code nên không biến tấu vào file của mình được.Vậy em xin nhờ các bác giúp em ạ.Em gửi kèm file,mục đích của em là muốn insert hình ảnh vào các ô có sẵn
Mong các bác chỉ giúp cách nào automatic và nhanh hơn ạ.Trước giờ em toàn làm thủ công.Em xin cảm ơn cả nhà ạ.

Em đang cần gấp,có bác nào giúp em không ạ?

 

[giaiphap]

Em đang cần gấp,có bác nào giúp em không ạ?

Gấp hay không là chuyện của bạn, còn bạn muốn người khác giúp thì bạn phải mô tả chi tiết vấn đề cần giúp đỡ, tôi xem file của bạn chẳng hiểu bạn muốn giúp cái gì? giúp ra sao? chèn hình chổ nào? hình lấy từ đâu?...

 

[bichhuong142]

Gấp hay không là chuyện của bạn, còn bạn muốn người khác giúp thì bạn phải mô tả chi tiết vấn đề cần giúp đỡ, tôi xem file của bạn chẳng hiểu bạn muốn giúp cái gì? giúp ra sao? chèn hình chổ nào? hình lấy từ đâu?...

Xin lỗi bác nhé,để em trình bày lại:Trong file đính kèm em có gửi 2 file excel là mẫu khảo sát và mẫu nghiệm thu(trong mỗi một file excel là cách thức chèn ảnh khác nhau) và 2 folder ảnh.Mục đích của em là muốn chèn ảnh từ folder ảnh có sẵn vào từng ô đã tạo cố định trong file excel.Ví dụ trong file excel "mẫu khảo sát"em muốn chèn ảnh từ foler ảnh 256191 theo thứ tự từ ảnh số 1,2,3....chèn vào ô số 1,2,3 em đã đánh số và ảnh chèn vào phải vừa kín khung.Mục đích của em là vậy,nhờ mọi người giúp em ạ.Em gửi lại flie và mô tả mục đích cần giúp đỡ trong mỗi file excel ạ.em xin chân thành cảm ơn

 

[giaiphap]

Xin lỗi bác nhé,để em trình bày lại:Trong file đính kèm em có gửi 2 file excel là mẫu khảo sát và mẫu nghiệm thu(trong mỗi một file excel là cách thức chèn ảnh khác nhau) và 2 folder ảnh.Mục đích của em là muốn chèn ảnh từ folder ảnh có sẵn vào từng ô đã tạo cố định trong file excel.Ví dụ trong file excel "mẫu khảo sát"em muốn chèn ảnh từ foler ảnh 256191 theo thứ tự từ ảnh số 1,2,3....chèn vào ô số 1,2,3 em đã đánh số và ảnh chèn vào phải vừa kín khung.Mục đích của em là vậy,nhờ mọi người giúp em ạ.Em gửi lại flie và mô tả mục đích cần giúp đỡ trong mỗi file excel ạ.em xin chân thành cảm ơn

Bạn xem file.

 

[bichhuong142]

Bạn xem file.

Em xin chân thành cảm ơn bác giaiphap.Nhờ có sự giúp đỡ của bác công việc của em từ giờ sẽ nhanh rất nhiều ạ.Em nhờ bác sửa lại giúp em code cho file" MauKhaoSat" với ạ.File này em chạy ảnh hiển thị bị thiếu ảnh số 1,4,7.. tức là cột đầu tiên không hiển thị ảnh.
Say khi chạy file em có ý tưởng muốn gán cái nút "chèn ảnh" có chức năng giống nút "Insert".tức là khi em nhấn nút"chèn ảnh" sẽ tìm đến thư mục ảnh muốn chèn vào file excel và khi chọn một loạt ảnh thì sẽ chạy lần lượt vào các ô theo thứ tự đánh số 1,2,3... chứ không phải là chèn từng cái như "Insert" hiện tại bác ạ.Bác có thể giúp em điều này không ạ?

 

[giaiphap]

Em xin chân thành cảm ơn bác giaiphap.Nhờ có sự giúp đỡ của bác công việc của em từ giờ sẽ nhanh rất nhiều ạ.Em nhờ bác sửa lại giúp em code cho file" MauKhaoSat" với ạ.File này em chạy ảnh hiển thị bị thiếu ảnh số 1,4,7.. tức là cột đầu tiên không hiển thị ảnh.
Say khi chạy file em có ý tưởng muốn gán cái nút "chèn ảnh" có chức năng giống nút "Insert".tức là khi em nhấn nút"chèn ảnh" sẽ tìm đến thư mục ảnh muốn chèn vào file excel và khi chọn một loạt ảnh thì sẽ chạy lần lượt vào các ô theo thứ tự đánh số 1,2,3... chứ không phải là chèn từng cái như "Insert" hiện tại bác ạ.Bác có thể giúp em điều này không ạ?

Thứ nhất code chèn hình theo giá trị của ô, do trong file các ô không có số 1, 4 và 7 nên nó không chèn vào.
Thứ hai trong file đã có sẳn nút Chèn hình rồi bạn nháy vào là xong rồi mà? Hay bạn muốn nút đó nằm chổ nào thì bạn cứ di chuyển nó đến nơi đó thôi.

 

[Phamvanchat]

Em xin phép đào mộ topic cái ạ, mong các anh đi trước hỗ trợ.

File (A) gile gốc đá làm chỉ còn thiếu hình là hoàn thành (30 sheet là 30 của tháng)

File (B) là file hình ảnh được xuất ra từ phần mềm sắp xếp theo stt như trong file ( lưu ý: Ngày đầu tiên thì hình stt cuối cũng - cứ thế lên đến ngày cuối cùng thì stt là 1)
Em muốn làm sao để cho hình ở file B nó tự động vào các ô của file A và tự động dãn vừa khít với cell (hiện tại em copy thủ công rất mất thời gian)

Mong nhận được sự giúp đỡ và góp ý của các anh chị

Chân thành cám ơn và chúc mọi người đầu tháng mạnh khỏe.

Bài đã được tự động gộp: 19/8/20

Thứ nhất code chèn hình theo giá trị của ô, do trong file các ô không có số 1, 4 và 7 nên nó không chèn vào.
Thứ hai trong file đã có sẳn nút Chèn hình rồi bạn nháy vào là xong rồi mà? Hay bạn muốn nút đó nằm chổ nào thì bạn cứ di chuyển nó đến nơi đó thôi.

Em cũng định áp dụng mà phần mềm nó xuất ra hình ở file excell, toàn phải làm thủ công. Nếu anh rảnh xem giúp em với ạ. Em cám ơn anh